Verifier la protection de toutes les feuilles

bonjour

je souhaiterai verifier que toutes les feuilles de mon classeur soient protegées par le petit bout de code suivant :

Sub verifprotection()

Dim Sh As Worksheet
For Each Sh In Sheets
    If Sh.UnprotectContents Then
        MsgBox "Feuille : " & Sh.Name & " déprotégée"
    End If
Next Sh
End Sub

seulement il ne marche pas et je n'arrive pas à corriger la ligne :

 If Sh.UnprotectContents Then

auriez vous une idée sur la facon d'ecrire celle ci ?

Merci

Bonsoir Rocket 4 le forum

pourquoi faire simple quand on peut faire compliqué !!!

a+

papou

Sub verifprotection()
    Dim Sh As Worksheet
    For Each Sh In workSheets
       sh.protect
    Next Sh
    End Sub

Merci Paritec , en effet c'est plus simple