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