Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Worksheets("feuil1").ProtectContents Then MsgBox "La feuil1 est protégée"
Regarde dans l'aide à ProtectContents, à "Voir aussi", tu as d'autres possibilités ex. Locked, ProtectWindow...