Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Protection contre la lecture d'un fichier Word via Access

Protection contre la lecture d'un fichier Word via Access

3 réponses
Avatar
Sébastien.
Bonjour, j'ai un petit souci et j'ai besoin de vos=20
lumi=E8res.

J'essaie d'appliquer dans Access la protection contre la=20
lecture d'un doc (dans word =3D>=20
Outils/options/enregistrement/mot de passe pour la lecture)

mon probl=E8me est que... bah =E7a ne fonctionne pas :-)

plus pr=E9cis=E9ment, =E7a fonctionne jusqu'=E0 l'enregistrement;=20
=E0 priori comme il n'y a pas de modif du texte, il=20
consid=E8re que rien n'a chang=E9 et donc ne fait rien;=20
voici le code que j'ai fait.
Public Function Protection_Lecture(Cou_id As Variant)
Dim Nom_Courrier As String

Nom_Courrier =3D DLookup("Cou_File", "T_Courrier", "[Cou_Id]=20
=3D " & Cou_id)

Dim W_App As Object
Set W_App =3D CreateObject("Word.Application")
W_App.Documents.Open (Nom_Courrier)
W_App.Visible =3D True
With W_App.activedocument
.ReadOnlyRecommended =3D False
.EmbedTrueTypeFonts =3D False
.SaveFormsData =3D False
.SaveSubsetFonts =3D False
.Password =3D "motdepasse"
.WritePassword =3D ""

'jusque l=E0 tout se passe bien, si je v=E9rifie =E0 ce stade si=20
le mot de passe est bien pris en compte, c'est bon.

End With
W_App.Application.DefaultSaveFormat =3D ""
With W_App
.activedocument.Saveas (Nom_Courrier)
.activedocument.Close
End With
Set W_App =3D Nothing
End Function

quand j'ouvre de nouveau le doc, pas de demande de mot de=20
passe.
Merci par avance de votre aide.

S=E9bastien.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy Sempere [MVP]
Bonjour

Normalement c'est au niveau de la ligne SaveAs que tu dois spécifier le mot
de passe

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Sébastien." a écrit dans le message news:
712401c401de$79c41e80$
Bonjour, j'ai un petit souci et j'ai besoin de vos
lumières.

J'essaie d'appliquer dans Access la protection contre la
lecture d'un doc (dans word =>
Outils/options/enregistrement/mot de passe pour la lecture)

mon problème est que... bah ça ne fonctionne pas :-)

plus précisément, ça fonctionne jusqu'à l'enregistrement;
à priori comme il n'y a pas de modif du texte, il
considère que rien n'a changé et donc ne fait rien;
voici le code que j'ai fait.
Public Function Protection_Lecture(Cou_id As Variant)
Dim Nom_Courrier As String

Nom_Courrier = DLookup("Cou_File", "T_Courrier", "[Cou_Id]
= " & Cou_id)

Dim W_App As Object
Set W_App = CreateObject("Word.Application")
W_App.Documents.Open (Nom_Courrier)
W_App.Visible = True
With W_App.activedocument
.ReadOnlyRecommended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.Password = "motdepasse"
.WritePassword = ""

'jusque là tout se passe bien, si je vérifie à ce stade si
le mot de passe est bien pris en compte, c'est bon.

End With
W_App.Application.DefaultSaveFormat = ""
With W_App
.activedocument.Saveas (Nom_Courrier)
.activedocument.Close
End With
Set W_App = Nothing
End Function

quand j'ouvre de nouveau le doc, pas de demande de mot de
passe.
Merci par avance de votre aide.

Sébastien.
Avatar
Daniel Carollo
Pas "en train" d'inspecter les rails aujourd'hui Jesse? ;-)


"Jessy Sempere [MVP]" wrote in message
news:c2774j$nmu$
Bonjour

Normalement c'est au niveau de la ligne SaveAs que tu dois spécifier le
mot

de passe

@+
Jessy Sempere - Access MVP


Avatar
Jessy Sempere [MVP]
Pas "en train" d'inspecter les rails aujourd'hui Jesse? ;-)


Et non, en tant que simple comptable, je ne suis pas sollicité pour ce genre
de problème... ;-))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------