Protection de feuilles avec MDP dans macro

Bonjour,

Je voudrais protéger plusieures feuilles d'un fichier excel par un mot de passe ; là pas de problème mais lorsque je lance la macro (qui s'applique sur toutes les feuilles), ce mot de passe m'est demandé à chaque feuille...
Il me faut donc enlever la protection au début de la macro puis la remettre à la fin de celle-ci.

Le problème que je recontre est le suivant, lorsque je tape dans la macro ci-dessous :
ActiveSheet.Protect ("XXX") DrawingObjects:=True
J'ai le message : Erreur de compilation - attendu : fin d'instruction

macro :
Private Sub Workbook_Open()

ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
Range("AK1").Select
ActiveSheet.Unprotect
selection.AutoFilter
selection.AutoFilter Field:=6, Criteria1:="1"
selection.AutoFilter Field:=4, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowSorting:=True, _
AllowFiltering:=True
Range("f5").Select
Next work
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowSorting:=True, _
AllowFiltering:=True
End Sub


Quelqu'un saurait-il quel est le problème et comment y remédier ????

D'avance merci de votre aide.