Autoriser une macro sur une feuille protegée

Résolu/Fermé
Signaler
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
-
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
-
Bonjour,
Je cherche une solution en VBA ou non pour utiliser ma macro sur feuille protégée.
j'ai utilisé ce code :


Sub MacroavecfeuilleProtect()
ActiveSheet.Unprotect "lemotdepasse"

'Placez ici vos instructions

ActiveSheet.Protect "lemotdepasse", True, True, True
End Sub


mais le problème est que si j'ôte la protection, des que j'active ma macro cela re protège directement la feuille (alors que je l'avais ôtée au par avant )

Cordialement.

1 réponse

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 721
Bonjour,

Avec :
Sub MacroavecfeuilleProtect()
Dim protégé As Boolean
  
  protégé = ActiveSheet.ProtectContents
  If protégé Then ActiveSheet.Unprotect "lemotdepasse"

  'Placez ici vos instructions

  If protégé Then ActiveSheet.Protect "lemotdepasse", True, True, True

End Sub