Déverrouiller le projet au lancement de la macro

[lostheroe]

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.

 

[DoubleZero]

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

Bonjour, lostheroe, le Forum,

Une solution, peut-être, ici.

A bientôt 🙂

 

[phlaurent55]

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

Bonjour à tous,

si j'ai bien compris, le code est censé faire le nettoyage et ensuite s'Auto-Supprimer

Pourquoi ne pas nettoyer et ensuite enregistrer au format .XLS qui ne prend pas en charge les macros

à+
Philippe

 

[lostheroe]

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]

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