Discussion :

[wanou44]

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 :

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

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
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

Il met cette fois-ci mot de passe incorrect.

Pouvez-vous m'aider ?
Merci d'avance

[ouskel'n'or]

Pourquoi faire simple quand on peut faire compliqué ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveDocument.Protect Password:="zizou", NoReset:=False, Type:= _
        wdAllowOnlyRevisions
    ActiveDocument.Unprotect Password:="zizou"

Avec ça, je n'ai jamais eu de pb

A+

[wanou44]

Ca me génère une autre erreur.

"Erreur d'exécution 4605
La méthode ou propriété Protect n'est pas disponible à cause de Protect."

[ouskel'n'or]

As-tu essayé de fermer Word et de re-tenter l'expérience ? (...?...)

A+

[wanou44]

Oui bêtement mais ça marche toujours pas.

[ogenki]

pourquoi ne pas metre simplement le document en readonly ?

[ouskel'n'or]

Essai sur un autre doc, p't'être que le tien a un pb...

A+