J'ai deux fichiers Word où j'ai mis un mot de passe pour éviter de faire des modifications.
J'ai réussi à enlever la protection d'un seul avec la macro qui suit :
Mais pour le deuxième fichier, rien ne marche. En essayant ce bout de VB, il me met erreur de type et en essayant d'une autre façon :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:=strPassword End If
Il met cette fois-ci mot de passe incorrect.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Set aDoc = ActiveDocument If aDoc.ProtectionType <> wdNoProtection Then aDoc.Unprotect Selection.InsertBefore "department six" aDoc.Protect Type:=wdAllowOnlyRevisions, Password:=strPassword End If
Pouvez-vous m'aider ?
Merci d'avance
Partager