Comment savoir si une feuille est protégée

[COLOR=blue]Sub[/COLOR] ListeFeuilleETProtection()
    [COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet
    [COLOR=blue]Dim[/COLOR] res(): [COLOR=blue]ReDim[/COLOR] res(1 To Worksheets.Count, 1 To 2)
    [COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
    [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] sh [COLOR=blue]In[/COLOR] Worksheets
        i = i + 1
        res(i, 1) = sh.Name
        res(i, 2) = sh.ProtectContents
    [COLOR=blue]Next[/COLOR] sh
    Range([I]"A1"[/I]).Resize([COLOR=blue]UBound[/COLOR](res), 2) = res
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Sub DetectProtection()
Dim s As Object, txt$
For Each s In Sheets
  txt = txt & s.Name & " : " & IIf(s.ProtectContents, "", "non ") & "protégée" & Chr(10)
Next
MsgBox txt
End Sub