[XL 2007 et +] activer et modifier mot de passe accès macro par code VBA

Bonjour,
le sujet a été abordé de nombreuses fois, mais j'ai eu beau tester tout ce qui est possible et imaginable, je n'ai pas réussi à résoudre mon problème.
En gros j'ai un fichier de gestion de l'activité de ma boite avec des feuilles protégées pas mot de passe.
Les actions sont réalisées à travers des macro qui bien sûr utilisent le mot de passe.
L'accès aux macros est donc lui aussi restreint par un mot de passe.
L'idée c'est de pouvoir changer ce mot de passe en un seul coup avec une macro.
Je n'ai aucun soucis en ce qui concerne les pages, ou le contenu des macros.
En revanche, je n'arrive pas à interagir avec la protection de mon projet, autrement que manuellement.
L’intérêt est de n'avoir qu'un seul mot de passe "administrateur" qui se modifie en une seule action.
Existe-t-il un moyen de déverrouiller l'accès aux macros par un code vba, ainsi que de mettre à jour le mot de passe dans les propriétés du projet?

Cordialement.

Finalement j'ai trouvé.
J'ai mixé plusieurs codes trouvés à différents endroits
En gros ça donne ça

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

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:=2578, 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:=2578, recursive:=True).Execute   WB.Save End Sub

---

Code que je place dans un module.

Ensuite j'utilise:
UnprotectVBProject Workbooks("mon_classeur.xlsm"), "MDP" pour enlever la protection
et
ProtectVBProject Workbooks("mon_classeur.xlsm.xlsm"), "MDP" pour changer le mot de passe.

L'astuce consiste juste à utiliser les deux actions ci-dessus dans des userform pour n'enlever la protection que si le bon mot de passe a préalablement été bien rempli et
Ne changer le mot de passe qu'après confirmation du nouveau mot de passe voulu.

Dans mon cas j'utilise 3 userform:
Le premier qui me demande le MDP pour le retrait de la protection, si c'est le bon l'action est effectuée.
Les 2 suivants me demandent le MDP, si il est bon une nouvelle fenêtre me permet de le changer par double validation.

Je ne fais varier qu'une constante déclarée de cette façon

Code:

---

Public Const MDPA As String = "MDP"

---

En espérant que ça pourra faire gagner du temps à d'autres.

Cordialement.