Déprotéger Editeur VBA par VBA

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:

---

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.

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:

---

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

---

Merci pour cette rapide réponse, Lionel.

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

Bonne fin de journée.