XL 2010 macro pour détecter protection de la feuille

[whiteshark]

Bonjours à tous,

Je fais appelle à vous car un petit problème. Je souhaiterais réaliser une macro qui se déclencherait au changement de protection de la feuille.
Pour situer, je travaille sur un classeur qui sera utilisé pas plusieurs personnes dont certaines auront le mot de passe pour faire des modifs dessus mais qui ne sont pas spécialement à l'aise avec excel. Donc j'avais dans l'idée de rendre l'état de protection plus visuelle grâce à une image (de cadenas) qui changerait en fonction de la protection de la feuille (protégé = cadenas fermé, déprotégé = cadenas ouvert).
Je me débrouille pour gérer les images mais je n'arrive pas à trouver la partie de code qui permet la détection de la protection de la feuille, c'est la seule chose qui me manque.

J'espère que vous pourrez m'aider

 

[_Thierry]

Bonjour @whiteshark , le Forum

Je pense que ceci devrait t'aider :

If ActiveSheet.ProtectContents = True Then
   MsgBox "Feuille Protégée"
Else
   MsgBox "Feuille Non-Protégée"
End If

Bonne journée
@+Thierry

 

[jmfmarques]

Bonjour

une macro qui se déclencherait au changement de protection de la feuille.

la modification de la protection ne déclenche aucune procédure évènementielle.
A toi de choisir alors parmi les autres évènements (par exemple au selectionchange)

 

[whiteshark]

Ah parfait merci c'est exactement ce qu'il me manquait !