XL 2013 Protéger un doc Word de excel

[fredl]

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