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
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
Dernière édition: