Discussion :

[MarcelG]

Salut à tous,

Tous mes projets Excel ont leur éditeur VBE protégé par mot de passe.

Je souhaite opposer cette protection à tous les utilisateurs, sauf à moi!

J'ai pensé à un code lié à l'évènement Open.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Application.Username = "MarcelG" then
 
'Déprotéger l'éditeur BA de ce classeur avec le mot de passe affecté soit "TOTO"
 
end if

Auriez-vous le code adéquat pour ce qui est écrit ci-dessus en libellés.
Mes recherches ont été infuctueuses.

Par avance, je vous remercie.

[QuestVba]

Salut

tu pourrais voir ceci http://www.developpez.net/forums/d95...e-passe-connu/

On parle d'un code plus ou moins identique à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub TestProtect()
ProtectVBProject Workbooks("classeur1.xls"), "motdepasse"
End Sub
 
Sub TestunProtect()
UnProtectVBProject Workbooks("classeur.xls"), "motdepasse"
End Sub
 
Sub UnProtectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object
 
Set vbProj = WB.VBProject
 
'can't do it if already unlocked!
If vbProj.Protection <> 1 Then Exit Sub
 
Set Application.VBE.ActiveVBProject = vbProj
 
' now use lovely SendKeys to quote the project password
SendKeys Password & "~~"
Application.VBE.CommandBars(1).FindControl(ID:%78,
recursive:=True).Execute
End Sub
 
Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object
 
Set vbProj = WB.VBProject
 
'can't do it if already locked!
If vbProj.Protection = 1 Then Exit Sub
 
Set Application.VBE.ActiveVBProject = vbProj
 
' now use lovely SendKeys to set the project password
SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & _
Password & "~"
 
Application.VBE.CommandBars(1).FindControl(ID:%78,
recursive:=True).Execute
 
WB.Save
End Sub

[MarcelG]

Merci pour cette rapide réponse, Lionel.

Dès que possible, je vais effectuer un test puis revenir.

Bonne fin de journée.