Discussion :

[fredlesbre]

Bonjour à tous,
suite à recherche infructueuse sur le forum,
je me permets de vous soumettre un cas qui semble être un bug?
Je souhaite protéger un doc word de l'application Excel.

Mon code est le suivant :

Sub ProtegerDeExcel()
Set appli = GetObject(, "Word.Application")
If appli Is Nothing Then 'si word est fermé,l'ouvrir
Vword = 1
Set appli = CreateObject("Word.Application")
End If
appli.Visible = True
appli.ActiveDocument.Protect Password:="1", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub

Ce dernier ne fonctionne pas alors que le code pour le protéger fonctionne :

Sub ProtegerDeExcel()
Set appli = GetObject(, "Word.Application")
If appli Is Nothing Then 'si word est fermé,l'ouvrir
Vword = 1
Set appli = CreateObject("Word.Application")
End If
appli.Visible = True
appli.ActiveDocument.Protect Password:="1"
End Sub


Si par ailleurs j'applique dans word l'instruction :

ActiveDocument.Protect Password:="1", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

cela fonctionne également.

une idée?

Merci d'avance pour votre aide!
Et au plaisir de vous lire.

Frédéric

[clementmarcotte]

Bonjour,

Essaie sans les paramètres nommés, mais avec les parenthèses, et les virgules quand tu dois sauter un paramètre.

Code :

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

ActiveDocument.Protect( etc...)

Tu devrais retrouver les paramètres et l'ordre dans ton aide ou avec l'IntelliSense.