Sub protectionfeuille()
Dim mdp As String, ws As Worksheet
mdp = InputBox("Saisissez le mot de passe")
If mdp <> "toto" Then Exit Sub
For Each ws In Worksheets
ws.Protect mdp
Next ws
End Sub
Sub deprotectionfeuille()
Dim mdp As String, ws As Worksheet
mdp = InputBox("Saisissez le mot de passe")
If mdp <> "toto" Then Exit Sub
For Each ws In Worksheets
ws.Protect mdp
Next ws
End Sub