Proteger toutes les feuilles sauf 1

Bonjour, je cherche a proteger tout mon classeur comme indiquer sur le code, sauf une feuille.

Est ce posible ?

merci de votre aide et de votre s avoir ^^

Sub protegerfeuilles()
'
' protegerfeuilles Macro
'

'Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
' Si le mot de passe est bon, on exécute la boucle...
 ActiveSheet.Shapes("deverouiller").Visible = False
 ActiveSheet.Shapes("verouiller").Visible = True
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = "GMAO"
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
Worksheets(I).Protect Password:=Motdepasse
Next I
Range("P1").Select
End Sub

Bonjour,

'Nom Feuille" à adapter.

Cdlt.

For i = 1 To ActiveWorkbook.Worksheets.Count
        If Worksheets(i).Name <> "Nom Feuille" Then Worksheets(i).Protect Password:=MDP
    Next i

Merci jean eric. J essai ca des demain arrive au boulot.

Cordialement