Comment Mettre un PassWord au Projet ?

Bonjour,

je souhaite en VBA pouvoir mettre un password a mon project... mais rien y fait !!!
J'ai essaye le code suivant (meme hors mode debug - en pas en pas) ca ne marche pas

Code:

---

1 2 3 4 5 6

Password = "toto" If ActiveDocument.VBProject.Protection = 0 Then Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute SendKeys "^{TAB}" & "{SPACE}" & "{TAB}" & Password & "{TAB}" & Password & "{ENTER}{ESC}", True End If

---

La fenetre pour entrer le mot de passe s'ouvre, mas apparement le SendKeys n'a aucune action et la fenetre reste ouverte...

Quelqu'un a t'il deja realise cette operation avec succes?

Par avance merci pour vos idees/solutions

Daniel.