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
Partager