Erreur de chargement DLL avec Application.VBE.CommandBars(1)

BrunoM45

XLDnaute Barbatruc
Bonjour à toutes et à tous,

Une fois n'est pas coutume ;) je suis embêté avec la dé-protection de mes VBAProject

En effet, lorsque je lance mon code qui fonctionnait il y a peu
Code:
Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
  Exit Sub
  Dim vbProj As Object
  Set vbProj = WB.VBProject
  'can't do it if already locked!
  If vbProj.Protection = 1 Then Exit Sub
  Set Application.VBE.ActiveVBProject = vbProj
  ' now use lovely SendKeys to set the project password
  SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~"
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
  'WB.Save
End Sub

J'ai un message : Erreur de chargement de la DLL :confused:

Il faut dire aussi que j'avais installé Powerpoint 2013 un court moment puis désinstallé et je pense que le problème vient de là :(

comment puis-je faire pour corriger le souci ?

Par avance merci :)
 
Haut Bas