Exécuter une macro sur une feuille protégée

[Benoît]

Bonjour tout le monde...
J'ai un petit souci:

Je souhaiterais exécuter des macros dans une feuille protégée (par mot de passe) contre la modification.
Je pourrais faire ceci :

Sub MacroavecfeuilleProtect()
ActiveSheet.Unprotect 'lemotdepasse'
'Placez ici vos instructions
ActiveSheet.Protect 'lemotdepasse', True, True, True
End Sub

Mais je voudrais évidemment faire cela sans hard-coder le mot de passe...

Existe t il une commande pour protéger la feuille Excel contre la modification mais qui autoriserait l'exécution de macros??

Merci a tous,
Bonne journée.

 

[AV]

Ave,

Dans le module de thisworkbook et pour la feuille 'Feuil1'

Private Sub Workbook_Open()
Sheets('Feuil1').Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Enregistrer--fermer--réouvrir le classeur
Tu peux ensuite faire ce que tu veux, par macro, sur la dite-feuille

AV [aaa]

 

[Benoît]

Merci!!!