Déprotégé code VBA

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:

---

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

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

Code:

---

1 2	Set Application.VBE.ActiveVBProject = vbProj

---

Car en rajoutant:

Code:

---

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é

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

Code:

---

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

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:

---

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

Problème résolu !!!! :mouarf:

J'envoi le SendKey après mon Sub UnprotectVBProject

@ Bientot