Discussion :

[PPN83]

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

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

[bakman]

Salut PPN83 voila comment je procède

Dans ton sub général

Code :

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

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 :

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

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 :

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

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

[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 ?

[bakman]

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

sinon rajoute ca

Code :

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

SendKeys Pass & "~~", True

a la derniere ligne de la fonciton UnprotectVBProject

[PPN83]

Bonjour,

la ligne 7 de la fonction est:

Code :

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

VBC = wb.VBProject.VBComponents.Count

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

Code :

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

SendKeys Pass & "~~", True

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

Merci

[bakman]

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 :

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

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

Code :

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

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 :

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

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

[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.

Cordialement

[AlainTech]

Bonjour,

Et que donne un

Code :

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

DoEvents

juste avant le

Code :

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

SendKeys Pass & "~~", True

?

[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

[AlainTech]

Et en scindant le sendkeys en 2:

Code :

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

1
2
3
SendKeys Pass & "~", True
DoEvents
SendKeys "~", True

[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 !