Discussion :

[bakman]

Bonjour cela fait quelque heures que je suis sur le problème j'ai lu
pas mal d'ancien topic sur le sujet mais je ne comprend pas pourquoi cela ne fonctionne toujours pas.
J'ai un fichier protégé dans lequel il faut que je supprime des modules etc...
L'application que je suis en train de mettre en place demande à l'utilisateur
sur quel fichier veut il effectuer l'opération et c'est parti.
Voici un bout de code :

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
 
 
        Dim Pass As String
        Pass = "toto"
    MsgBox "choisir le fichier", vbOKOnly
    Application.FileDialog(msoFileDialogFilePicker).Show
    If Application.FileDialog(msoFileDialogFilePicker).SelectedItems.Count <> 1 Then
        Exit Sub
    End If
 
    Set Wk = Application.Workbooks.Open(Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1))
 
    Set vbProj = Wk.VBProject
 
    If vbProj.Protection = vbext_pp_locked Then
 
        Set Application.VBE.ActiveVBProject = vbProj
        SendKeys Pass, True
 
    End If
 
' suite du code qui va supprimer les modules

Le code plante dès lorsque je veux supprimer les modules il me dit que le code est tout simplement protègé.
Merci d'avance

J'ai l'impression que le problème viens de cette ligne

Code :

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

1
2
 
Set Application.VBE.ActiveVBProject = vbProj

Car en rajoutant:

Code :

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

1
2
 
MsgBox (Application.VBE.ActiveVBProject.Filename)

pour voir si le projet vbactif est devenu le fichier que je viens d'ouvrir et bien surprise on dirais que Set n'a pas marché

[bakman]

Bon en fait non si j'execute sans le debuger avec la MSGBOX :

Code :

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

1
2
 
MsgBox (Application.VBE.ActiveVBProject.Filename)

J'ai bien le bon nom de fichier, mais toujours pareil le code s'arrete avec erreur
"impossible de continuer cette opération tant que projet est protégé"

[bakman]

Ok bon petit à petit ca avance j'ai décidé de faire une fonction spécialement pour dévérouiller le code que j'ai trouvé sur un ancien poste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
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

Le macro s'arrete à présent pour demandé le mdp mais le SendKeys n'a pas l'air de fonctionner

[bakman]

Problème résolu !!!!

J'envoi le SendKey après mon Sub UnprotectVBProject

@ Bientot