Déprotéger un VBAProject par code pour maj du code

Version imprimable

Bonsoir,

J'ai besoin de modifier la macro de 200 classeurs, mais je n'arrive pas à déprotéger le VBAProject avec le code ci-dessous.
le mot de passe est toto
sinon est-il plus simple de modifier une macro ou le module ?
MERCI d'avance de vos réponses:lol:

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
34
35
36
Sub déprotéger()
 
Dim wbk As Workbook
Dim wsh As Worksheet
Dim Fich As String
Dim Feuille
Dim vbProj As Object
 
Application.ScreenUpdating = False
Fich = Dir("I:\EP\DPT\TEST\*.xls")
Do While Fich <> ""
    With wsh
        Set wbk = Workbooks.Open("I:\EP\DPT\TEST\" & Fich)
 
    Set vbProj = wbk.VBProject
    If vbProj.Protection <> 1 Then Exit Sub
    Set Application.VBE.ActiveVBProject = vbProj
    SendKeys Password & "toto"
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
    'With wbk.VBProject
       '.VBComponents.Import "C:\Documents and Settings\6467\Bureau\Module3.bas"
    'End With
 
    wbk.Save
    wbk.Close False
    Fich = Dir
    Set wbk = Nothing
    End With
Loop
 
Set wsh = Nothing
 
Application.ScreenUpdating = True
 
MsgBox "TRAITEMENT TERMINE", vbCritical, "Information"
End Sub

Salut PPN83 voila comment je procède

Dans ton sub général

Code:

1
2
3
4
5
6
7
8
9
10
 
 
If ProtectedVBProject(MonWorkBook) = True Then
    Dim Pass As String
    Pass = "monMotDePasse"
 
    Call UnprotectVBProject(MonWorkBook)
 
    SendKeys Pass & "~~", True
    End If

La fonction qui vérifie si il est protégé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function ProtectedVBProject(ByVal wb As Workbook) As Boolean
' returns TRUE if the VB project in the active document is protected
Dim VBC As Integer
VBC = -1
On Error Resume Next
VBC = wb.VBProject.VBComponents.Count
On Error GoTo 0
If VBC = -1 Then
ProtectedVBProject = True
Else
ProtectedVBProject = False
End If
End Function

Le sub qui va enlever la protection

Code:

1
2
3
4
5
6
7
8
9
 
Sub UnprotectVBProject(wb As Workbook)
  Dim vbProj As Object
  Set vbProj = wb.VBProject
   If vbProj.Protection <> 1 Then Exit Sub
 
  Set Application.VBE.ActiveVBProject = vbProj 
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
End Sub

Voilou ;)

15/04/2011, 23h45
PPN83

Bonsoir Bakman

Merci de ta participation

Mais ça ne fonctionne pas, j'ai l'erreur d'exécution "impossible d'effectuer cette opération tant que le projet est protégé" à la ligne 7 de la fonction. Si tu as une solution ?
17/04/2011, 12h32
bakman

Ok! tu peut poster le code please?
à la ligne 7 je sais pas ce qu'il y a ;)

sinon rajoute ca

Code:

SendKeys Pass & "~~", True

a la derniere ligne de la fonciton UnprotectVBProject
18/04/2011, 19h50
PPN83

Bonjour,

la ligne 7 de la fonction est:

Code:

VBC = wb.VBProject.VBComponents.Count

j'ai inséré ta dernière phrase

Code:

SendKeys Pass & "~~", True

dans la macro UnprotectVBProject mais j'ai le même problème; toujours à la ligne 7 de la fonction. :lol:

Merci

Alors là je comprend pas ca fonctionne bien chez moi essaye de ne pas passer par la fonction qui vérifie si le projet est protégé.
Code:

1 2 3 4 5 6 7 8 Dim Pass As String Pass = "monMotDePasse" Call UnprotectVBProject(MonWorkBook, Pass) SendKeys Pass & "~~", True End If
Code:

1 2 3 4 5 6 7 8 9 10 Sub UnprotectVBProject(wb As Workbook, pass As String) Dim vbProj As Object Set vbProj = wb.VBProject If vbProj.Protection <> 1 Then Exit Sub Set Application.VBE.ActiveVBProject = vbProj Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute SendKeys Pass & "~~", True End Sub
Je pense à un truc
Code:

1 2 Application.DisplayAlerts = False
Il devrais ne plus t'afficher le message du coup la fonction qui vérifie le si le projet est protégé devrait foncitonner:D

26/04/2011, 23h04
PPN83

Bonsoir Backman

Excuse pour les délais de réponse mais je n'ai pas trop le temps en ce moment.

Le problème reste entier, le projet n'est pas déverrouillé.
Au lancement de la macro, bizarrement le verrouillage numérique se désactive et la boite de dialogue "VBAProject propriétés du projet" s'ouvre et dans le nom du projet c'est le mot de passe qui s'affiche et pas le nom je ne pense pas que ce soit normal. 8O

Cordialement
30/04/2011, 12h15
AlainTech

Bonjour,

Et que donne un

Code:

DoEvents

juste avant le

Code:

SendKeys Pass & "~~", True

?
30/04/2011, 23h27
PPN83

Bonsoir,

Pas mieux et la macro ne va pas jusqu'au bout
Le problème ne viendrait il pas du déverrouillage du pavé numérique ?

Merci
01/05/2011, 15h14
AlainTech
Et en scindant le sendkeys en 2:
Code:

1 2 3 SendKeys Pass & "~", True DoEvents SendKeys "~", True
01/05/2011, 19h36
PPN83

Bonsoir,

Non pas d'amélioration et j'ai toujours l'affichage de la boite de dialogue "VBAProject propriétés du projet". que je ferme en cliquant OK

J'ai supprimé la fermeture du classeur et je m'aperçois que la macro déverrouille bien le projet mais quand je ferme le classeur il se verrouille à nouveau !:?