Voilà
Private Sub protection()
Application.ScreenUpdating = False
For Each sheet In Sheets
sheet.Protect password:="toto", DrawingObjects:=True, contents:=True, Scenarios:=True
'protege toutes tes feuilles
Next
activeworkbook.protect password:="toto"
'protege le classeur
End Sub
Private Sub déprotection()
Application.ScreenUpdating = False
For Each sheet In Sheets
sheet.Protect password:="toto", DrawingObjects:=False, contents:=False, Scenarios:=False
Next
End Sub
bonne journée
Evelynetfrancois