Discussion :

[berserk13]

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.

[berserk13]

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

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
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 :

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

Public Const MDPA As String = "MDP"

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

Cordialement.