Protection de feuilles

Bonjour,

Est il possible de protéger plusieurs feuilles à la fois?? Quand je tente d'en sélectionner plusieurs, l'outil "Protéger la feuille" est désactivé.

Merci.

Bonjour

Pour protéger toutes les Feuilles, Code dans un Module

une Macro qui protège et l'autre qui déprotège

Sub Proteger()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="Trek"
Next
End Sub

Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="Trek"
Next
End Sub

Cordialement

MERCI