Sub MiseEnEvidenceSiProtection()
Dim MaPlage As Range
Set MaPlage = Selection
If ActiveSheet.ProtectContents Then
If ActiveSheet.Protection.AllowFormattingCells Then
MaPlage.Interior.ColorIndex = xlColorIndexNone
MsgBox "La feuille est protégée -> Cellules de la Sélection sans couleur de remplissage : " & MaPlage.Address
Else
MsgBox "La feuille est protégée (mise en forme des cellules non autorisée) -> Cellules de la Sélection : " & MaPlage.Address
End If
Else
MaPlage.Interior.Color = RGB(0, 255, 0)
MsgBox "La feuille n'est pas protégée -> Cellules de la Sélection en Vert : " & MaPlage.Address
End If
End Sub
à ma connaissance, pas possible sans passer par du VBA.
J'aimerai mettre en couleur et avec un message une ou plusieurs cellules quand la feuille n'est pas protégée.
Je confirme ton impressionJe me suis sans doute mal exprimé dans ma demande
Une incompréhension de ma part, pour moi, il s'agissait de surligner certaines cellules (dans mon exemple, faute de précisions, c'était la sélection) si la feuille était protégée et de ne pas les surligner si la feuille était protégée.Si c'est possible sans macro et avec une MFC