Re : Déverrouiller le projet au lancement de la macro
Bonjour,
J'ai essayé plusieurs macro trouver sur le site que tu m'as proposer DoubleZero.
Mais aucune ne marche
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
Application.VBE.CommandBars(1).FindControl(ID:%78,
recursive:=True).Execute
SendKeys Password & "~"
SendKeys "~"
'WB.Save
'WB.Close
End Sub