Discussion :

[miko91]

Bonjour,
J'ai cherché partout sur le forum pour déverrouiller le code VBA et je n'arrive pas !!

Mon besoin : J'ai une application qui tourne sur 100 sites avec du code VBA protégé (et j'ai le mot de passe) j'aimerai modifier le code source via une autre application. Kiki29 ma déja fourni le moyen de modifier un code source en employant du VBE. (http://www.developpez.net/forums/sho...d.php?t=391562)





Mon problème : je n'arrive pas à trouver la ou les instructions pour déverrouiller le projet vba ?

j'ai consulté le lien ci dessous
http://www.developpez.net/forums/sho...t=vbe+password

mais sans succès ! à l'execution de code de déverrouillage il me présente une boite de dialogue !



voici les routines :
------------------

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
Sub TestProtect() 
ProtectVBProject Workbooks("Proteger_deproteger.xls"), "motdepasse" 
End Sub 
 
Sub TestUnprotect() 
UnprotectVBProject Workbooks("Proteger_deproteger.xls"), "motdepasse" 
End Sub 
 
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String) 
  Dim vbProj As Object 
 
  Set vbProj = WB.VBProject 
 
   If vbProj.Protection <> 1 Then Exit Sub 
 
  Set Application.VBE.ActiveVBProject = vbProj 
 
   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 
 
   If vbProj.Protection = 1 Then Exit Sub 
 
  Set Application.VBE.ActiveVBProject = vbProj 
 
 
  SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & _ 
Password & "~" 
 
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute 
 
End Sub

qui a ressu a déverrouiller le code sans avoir de boite de dialogue avec un code vba qui fonctionne sur sur Excel vba 97 a 2003 ?


Merci de votre contribution

[miko91]

Enfin, j'ai trouvé un code simple voici les explications :

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
 
    Dim Password    As string 
    Dim Wk          As Workbook
 
    Feuille ="TOTO.XLS"
    Password ="MASTER"   
    Set Wk = Workbooks(Feuille)
    '-----------------------
    '
    If Workbooks(Feuille).VBProject.Protection = vbext_pp_locked Then
        ' Ici le code est protégé.
        Set Application.VBE.ActiveVBProject = Workbooks(Feuille).VBProject
        SendKeys "{ENTER}" & Password & "{ENTER}{ESC}", True
       ' Ici le code est déprotégé
    End If

Attention pour que l'application soit ouverte, il ne faut pas exécuter le code en mode pas à pas et pour cause l'instruction SendKeys sera perturbée par
ce mode.