Sub ProtegeTout()
Dim feuil
For Each feuil In Application.Sheets
feuil.Protect Password:="tp", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Next feuil
End Sub
Sub DeprotegeTout()
Dim feuil
For Each feuil In Application.Sheets
feuil.Unprotect Password:="tp"
Next feuil
End Sub