Utilisez le code ci-dessous pour protéger toutes les feuilles de calcul d’un classeur en une seule fois.
‘Ce code protégera toutes les feuilles du classeur

Sub ProtectAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next ws
End Sub

Ce code parcourra toutes les feuilles de travail une par une et les protégera.
Si vous souhaitez déprotéger toutes les feuilles de calcul, utilisez ws.Unprotect au lieu de ws.Protect dans le code.