indiquer l'état de la protection feuille dans un label

[pascal21]

Private Sub Worksheet_Activate()
If ActiveSheet.Protect = True Then
Label1.Caption = "feuille protegée" 'couleur label rouge
Else: Label1.Caption = "feuille non protégée" 'couleur label verte
End If
End Sub

bonsoir
je viens d'essayer ça pour avoir une indication de l'état de la protection de la feuille dans un label sur la feuille
mais ça ne fonctionne pas et ça enclenche la protection au changement de feuille
ce que j'aimerais c'est juste l'état de la protection dans le label et la couleur si possible
merci de votre aide
ou encore un bouton à la place du label ça permettrait de proteger ou déproteger si besoin

 

[pascal21]

Re : indiquer l'état de la protection feuille dans un label

bonsoir
ok merci je regarde ça tout à l'heure
edit vu
c'est parfait merci et bonne soirée carchamachinchose lol!!!

 

[Paritec]

Re : indiquer l'état de la protection feuille dans un label

Bonsoir Pascal le squale,
moi j'avais fait cela alors je le joins
bonne soirée
a+
papou 🙂