Function IsSheetProtected(ByVal sSheetName As String) As Boolean
With Worksheets(sSheetName)
IsSheetProtected = (.ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios)
End With
End Function
--------------------------------
MsgBox "La feuil1 est-elle protégée ? : " & IsSheetProtected("feuil1") , vbInformation