Bonjour
La protection de la feuille n'est pas un événement interceptible
il faut donc passer par un Private Sub Worksheet_Activate()
en venant d'une autre feuille
Code ThisWorkBook
Private Sub Workbook_Open()
Sheets("Feuil2").Activate
End Sub
A la sélection de la Feuil1, le code teste si la feuille est protégée et masque/affiche
Private Sub Worksheet_Activate()
If Sheets("Feuil1").ProtectContents = True Then
Sheets("Feuil1").Unprotect "YYY"
Range("B4,D7,C12,F15").Font.ColorIndex = 19
ActiveSheet.Protect "YYY"
ElseIf Sheets("Feuil1").ProtectContents = False Then
Range("B4,D7,C12,F15").Font.ColorIndex = 1
End If
End Sub
Pas trouvé mieux.
Cordialement