Option Explicit
'Déclaration des variables de module => utilisables par toutes les procédures du module
Const psw As String = "test" 'En déclarant le mdp au niveau module, plus besoin de le modifier x fois dans les procédures
Dim x As Worksheet
Sub Protege()
'For...Each, c'est mieux que For i...count ;)
For Each x In ThisWorkbook.Worksheets
x.Protect psw, True, True, True
Next
End Sub
Sub DeProtege()
For Each x In ThisWorkbook.Worksheets
x.Unprotect psw
Next
End Sub