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é