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 :
------------------
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 ?
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
Merci de votre contribution
Partager