XL 2013 action de protection fichier non fonctionnelle

[fredl]

Bonjour à tous et merci d'avance pour votre aide,
Dans le cadre du pilotage d'un fichier word à partir d'excel, j'ouvre un fichier word que je souhaite protéger à son ouverture s'il ne l'est pas.
La macro ci dessous résume l'action :
Sub essai()
Set appli = GetObject(, "Word.Application")
If appli Is Nothing Then 'si word est fermé,l'ouvrir
Set appli = CreateObject("Word.Application")
End If
appli.Visible = True
With appli
.Documents.Open (VlecteurReseau & VdirWeeklyLcmi & Year(Now) & "\Semaine" & Vsemaine & "\Archives\Weekly-LCMI-S" & Vsemaine & ".docm")

'protéger le fichier
If .ActiveDocument.ProtectionType = wdNoProtection Then
.ActiveDocument.Protect Password:="flxxxxxx", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End If
End Sub

Malheureusement, la derniere action ".ActiveDocument.Protect password.." en fin de macro se passe sans protéger dans les faits le fichier (pas de bug)
En revanche, la même instruction :
ActiveDocument.Protect Password:="flxxxxxx", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

dans une macro Word pour un fichier word fonctionne très bien....

Une idée?
Merci beaucoup pour vos retours

Frédéric

 

[Lone-wolf]

Bonjour Frédéric

Un test avec : Type:=wdAllowOnlyComments

Sinon

If doc.ProtectionType = wdNoProtection Then doc.Protect Password:="xxxxxxx", _
NoReset:=True, Type:=wdAllowOnlyRevisions, UseIRM:=False, EnforceStyleLock:=True

 

[fredl]

Bonjour et merci pour tes conseils:
1/test avec "test avec : Type:=wdAllowOnlyComments" ne fait rien de mieux
2/test avec "doc.Protect Password:="xxxxxxx", NoReset:=True, Type:=wdAllowOnlyRevisions, UseIRM:=False, EnforceStyleLock:=True"
protège bien le fichier mais les zones de texte que j'avais protégée ne le sont plus et on se voit imposer un format gras souligné dans les zones de texte non protégées....
Bigre!
Je ne vais pas m'en sortir avec cela....
Si vous avez d'autres idées, je suis preneur!
Merci lone-Wolf
Frederic

 

[Lone-wolf]

Re

Désolé, mais pas d'autres idées.