Protection et deprotection d'un classeur par macros

Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
    wSheet.Protect Password:="motdepasse", UserInterFaceOnly:=True
Next wSheet
End sub

Option Explicit
Sub ProtegeTout()
Dim feuil

For Each feuil In Application.Sheets

feuil.Protect Password:="mot_de_passe", 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:="mot_de_passe"
'mot_de_passe à adapter

Next feuil

End Sub

Sub Ta_macro ()

Application.ScreenUpdating = False
Call DeprotegeTout

.....Code de ta macro

Call ProtegeTout
Application.ScreenUpdating = True

End Sub