Déverrouiller le projet au lancement de la macro

lostheroe

XLDnaute Occasionnel
Bonjour,

Afin que la macro fonctionne il faut déverrouiller le projet au début de la macro pour son bon fonctionnement.
Je pensais utiliser ActiveWorkbook.UnprotectVBProject Password:="vba" mais ça ne marche pas.
 

Pièces jointes

  • test déprotection.xlsm
    25.4 KB · Affichages: 41

lostheroe

XLDnaute Occasionnel
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
 

lostheroe

XLDnaute Occasionnel
Re : Déverrouiller le projet au lancement de la macro

Bonjour,

J'ai trouvé la solution pour déprotéger la macro, par contre j'ai deux nouveaux problèmes maintenant.

- 1er la touche verrouillage numérique ce désactive à chaque lancement de la macro
- 2ème la fin de la macro ne marche plus avec la suppression des modules
 

Pièces jointes

  • test deprotection 1.xlsm
    26.9 KB · Affichages: 38
Haut Bas