Sub ProtegeTout()
'-------------------------------------------------------
'ne pas oublier d'adapter le mot de passe aux deux
'-------------------------------------------------------
Dim feuil
For Each feuil In Application.Sheets
feuil.Protect Password:="TOTO", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True '===================================================>mot_de_passe à adapter
Next feuil
End Sub
Sub DeprotegeTout()
Dim feuil
For Each feuil In Application.Sheets
feuil.Unprotect Password:="TOTO" '======================================================>mot_de_passe à adapter
Next feuil
End Sub