'Bloquer le classeur
Dim feuil
For Each feuil In Application.Sheets
feuil.Protect Password:="MDP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Next feuil
'Bébloquer
Dim feuil
For Each feuil In Application.Sheets
feuil.Unprotect Password:="MDP"
Next feuil