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