Option Explicit
'Déclaration des variables de module => utilisables par toutes les procédures du module
Const psw As String = "wxcvbn" 'En déclarant le mdp au niveau module, plus besoin de le modifier x fois dans les procédures
Dim x As Worksheet
Sub ProtegeClasseur()
For Each x In ThisWorkbook.Worksheets
x.Protect psw, True, True, True
Next
End Sub
Sub DeProtegeClasseur()
For Each x In ThisWorkbook.Worksheets
x.unprotect psw
Next
End Sub