Sub proteger()
Verrou "toto"
End Sub
Sub deproteger()
Verrou "toto", False
End Sub
Private Sub Verrou(Passwd As String, Optional Ouvert As Boolean = True)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case Ouvert
Case True
ws.Protect Passwd
Case False
ws.Unprotect Passwd
End Select
Next
End Sub