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

phlaurent55

Nous a quittés en 2020
Repose en paix
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

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

Discussions similaires

Réponses
0
Affichages
325

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO