grouper, protéger ... partager et erreur 1004 (suite1)

Bonjour à vous tous,

Personne ne peut m'aider à résoudre cette erreur 1004 quand j'ouvre le fichier "partagé" ... ? j'ai rentré le code suivant ... pour pouvoir dissocier et grouper malgré que certaines cellules sont verrouillée et la feuille protégée ?

J'ai trois fichiers liés ...
et j'ai recopié et adapté le code ... comme j'ai pu car je ne programme pas en vba ...
Merci d'avance de m'aider.
PhilippeD



Private Sub Workbook_Open()
With Worksheets("Doss_liste")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
With Worksheets("Offre-facturation")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
With Worksheets("Prestations")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
End Sub