Protection d'un document Word

Bonjoir(c) Francois

question bête : pourquoi ne pas le faire avec Acrobat ???
Word est loin d'être la panacée en matière de protection...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 21/03/2005 16:45 vous avez écrit ceci :

Bonjour,

Je souhaite protéger un document Word de manière à ce que tout le monde
puisse le consulter, mais personne ne puisse le modifier ou faire un simple
Copier / Coller pour le recopier... En gros ce que permet de faire Acrobat
reader avec Pdf.

Pour cela, j'utilisais la protection en mode formulaire avec aucune section
et un mot de passe. Tout allait bien jusqu'au jour ou je m'aperçois qu'en
ouvrant ce même document via WordPad, je peux tout faire : le supprimer, le
modifier, le falsifier et le déprotéger...

Y aurait il un moyen d'empêcher WordPad de l'ouvrir, en le cryptant par
ex... ceci afin de garantir une fiabilité du document. J'ai un peu regardé
les possibilités de cryptage, mais ça implique de mettre un mot de passe
pour la lecture, et ça ne me convient pas car c'est lourd pour les
utilisateurs...

Merci.

François

Bonsoir JièL,

JièL Goubert avait prétendu :

Bonjoir(c) Francois

question bête : pourquoi ne pas le faire avec Acrobat ???

Réponse intelligente ;-))) : peut-être pask'il n'a pas Acrobat, et que c'est trop cher....

Cela étant dit, il existe des moyens pas chers, voire gratuits de faire du pdf, PDF95 par exemple qui fonctionne très bien...

Word est loin d'être la panacée en matière de protection...

Bien parlé !!! :-D

Circé
http://faqword.free.fr

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 21/03/2005 16:45 vous avez écrit ceci :

Bonjour,

Je souhaite protéger un document Word de manière à ce que tout le monde
puisse le consulter, mais personne ne puisse le modifier ou faire un simple
Copier / Coller pour le recopier... En gros ce que permet de faire Acrobat
reader avec Pdf.

Pour cela, j'utilisais la protection en mode formulaire avec aucune section
et un mot de passe. Tout allait bien jusqu'au jour ou je m'aperçois qu'en
ouvrant ce même document via WordPad, je peux tout faire : le supprimer, le
modifier, le falsifier et le déprotéger...

Y aurait il un moyen d'empêcher WordPad de l'ouvrir, en le cryptant par
ex... ceci afin de garantir une fiabilité du document. J'ai un peu regardé
les possibilités de cryptage, mais ça implique de mettre un mot de passe
pour la lecture, et ça ne me convient pas car c'est lourd pour les
utilisateurs...

Merci.

François

Bonjoir(c) Circé

Le 21/03/2005 21:46 vous avez écrit ceci :

Réponse intelligente ;-)))

Merci, je dormirais moins bête ce soir ;-)
(remarque que je n'ai pas dit que je me réveillerai dans le même état) ;-)))

Cela étant dit, il existe des moyens pas chers, voire gratuits de faire
du pdf, PDF95 par exemple qui fonctionne très bien...

Il permet de protéger aussi comme Acrobat ?

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Bonsoir JièL,


JièL Goubert a exposé le 21/03/2005 :

Il permet de protéger aussi comme Acrobat ?

Voici une question intelligente !!!! :-D

Et une réponse idiote :
Malheureusement, je ne pense pas... :-(

Circé

Bonjoir(c) Circé

Le 21/03/2005 23:03 vous avez écrit ceci :

Il permet de protéger aussi comme Acrobat ?

Voici une question intelligente !!!! :-D

Et une réponse idiote :
Malheureusement, je ne pense pas... :-(

MDR ;-)))))))))))
donc, retour à ma question de base : pourquoi ne pas utiliser Acrobat ?
(le vrai, le cher !!!) ;-))) Quitte à faire générer le PDF par une
personne le possédant, parceque le monsieur il a dit "Je souhaite protéger
un document Word" pas 25 ;-)))

Heing ? oui, je chipotte ;-)))))

Question plus sérieuse : est-ce que quelqu'un connait un clone d'Acrobat
(le vrai le cher :-D) qui permettrait de protéger le PDF final ? C'est
pour ma cultivation perso

--
JièL Chips pot heure de culture

Bonjour !

'Circé' nous a écrit ...

PDF995

Il permet de protéger aussi comme Acrobat ?
Voici une question intelligente !!!! :-D

Malheureusement, je ne pense pas... :-(

Il semble que si :
http://www.signature995.com/stdencrypt.htm
JièL va être content ! (tu lui traduiras ;-) )

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM

Bonjour à tous,
J'allais poser la même question que notre ami François,
Je dois envoyer à des clients des documents générés par Word ,(applicatif
associé à un progiciel) (plusieurs dizaines de doc par jours et
utilisateurs)
Pour cela j'ai une macro word qui active la protection du document et envoi
ce document en pièces jointes de mail.
Le document word est ensuite stocké dans un logiciel de GED, au format OLE.
J'avais pensé mettre une macro dans le doc interdisant la fonction copier ou
couper mais selon son niveau de sécurité et si le destinataire n'active pas
les macros cela ne fonctionnera pas.
Et pas de ACROBAT, seulement une imprimante "Amyuni PDF Converter", ca doit
être le même principe que PDF995 ?, il faudrait que j'imprime dans un
fichier, et récupère ce fichier dans mon mail en le protégeant
J'ai installé PDF995 et signature995 , cela fonctionne (avec message
d'attente sur la version freeware), maintenant faut que j'essaye de tout
mettre cela dans ma macro en utilisant le mode ligne de commande.
Oliv'


Anacoluthe wrote:

Bonjour !

'Circé' nous a écrit ...

PDF995

Il permet de protéger aussi comme Acrobat ?
Voici une question intelligente !!!! :-D

Malheureusement, je ne pense pas... :-(

Il semble que si :
http://www.signature995.com/stdencrypt.htm
JièL va être content ! (tu lui traduiras ;-) )

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM

Bonjour !

'Oliv'' nous a écrit ...

Afin de compléter mes macros ci-dessous je voudrais savoir comment coder
en vba les "options des messages" , notamment "enregistrer le message envoyé
dans " et "demander un ar" ?
la méthode que j'utilise est OutlookApp.CreateItem(olMailItem) (voir le
code ci-dessous )

Bravo pour votre macro ! Bel exemple d'utilisation de
Outlook pour envoyer depuis Word des emails en particulier
texte+PJ. Vous confirmez aussi une utilisation d'un freeware
(sauf un peu de pub) pour faire du pdf de qualité et protégé!

Pour "enregistrer le message envoyé dans" renseignez un
MAPIFolder (objet Dossier Outlook) dans votre séquence
With oItem
...
Set .SaveSentMessageFolder = monMAPIFolder
' et pour l'accusé de réception :
.OriginatorDeliveryReportRequested = True
...
End With

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM

Oliv' wrote:

Re à tous ,
Je crois avoir bien travaillé voici le resultat la tite macro qui
transforme en pdf (Protégé) mon document word et prépare un mail
OUTLOOK avec ce fichier en pièce jointe .

Il faut ajouter dans outils/références la référence à "Microsoft
outlook
11.0 object library" pour la macro SendPdfAsAttachment

Il faut au préalable avoir une imprimante pdf d'installée ici AMYUNI
et la modifier dans le code
et le programme SIGNATURE995

SendPdfAsAttachment recherche dans le document à envoyer les signets
suivants
"EMAIL", "ref_complete" et "refCourtier pour renseigner l'adresse et
le sujet du mail.
(Une fenêtre internet s'ouvre du fait de la version freeware de
SIGNATURE995 )
Vous pouvez utiliser la macro makepdf seule bien sûr
Merci pour le retour d'informations.
Oliv'


Public pdf_name
Public newpdf_name

Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)


Sub Makepdf()
'
' Macro enregistrée le 23/03/2005 par Olivier CATTEAU
'
'memorisation des options

oldprinter = ActivePrinter
oldoptionfields = Options.UpdateFieldsAtPrint
oldoptionLinks = Options.UpdateLinksAtPrint
oldoptionsPrintbackground = Options.PrintBackground
name_doc = ActiveDocument.Name
pdf_name = "c:temp" + name_doc + ".pdf"
'modification des options d'impression
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = True
.PrintBackground = False
End With
ActivePrinter = "Amyuni PDF Converter"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:úlse, Collate:=True, Background:úlse,
PrintToFile:= _
True, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0,
OutputFileName:=pdf_name, Append:úlse

'recuperation du pdf et securisation
newpdf_name = "c:tempnew" + name_doc + ".pdf"
fichiers_pdf = pdf_name + " " + newpdf_name


securepdf = "C:pdf995resutilitiessignature995Pdf995 Standard
Encryption.exe " + fichiers_pdf + " """" """" 10000000 128"

Shell (securepdf)

'envoi par mail du pdf

Sleep 1000



'remise en place des options
ActivePrinter = oldprinter
With Options
.UpdateFieldsAtPrint = oldoptionfields
.UpdateLinksAtPrint = oldoptionLinks
.PrintBackground = oldoptionsPrintbackground
End With

End Sub

Sub SendPdfAsAttachment()
'
' Macro enregistrée le 23/03/2005 par Olivier CATTEAU
'

'Si automatique ne pose pas la question de adresse Email et protection
Response = MsgBox(prompt:="Voulez vous executez automatiquement
la macro ? (ne pose pas la question de adresse Email )",
buttons:=vbYesNo)



'repere les signets des modeles winpass

On Error Resume Next

Selection.GoTo What:=wdGoToBookmark, Name:="EMAIL"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Email = Selection

Selection.GoTo What:=wdGoToBookmark, Name:="ref_complete"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
ref_complete = Selection

Selection.GoTo What:=wdGoToBookmark, Name:="refCourtier"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
refCourtier = Selection



On Error GoTo 0
Dim Message, Title, Default, MyValue
' Définit le message.
If Response = vbNo Then
Message = "Indiquez le destinataire Principal du mail"
Title = "Liste des destinataires " ' Définit le titre.
Default = Email ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Else: MyValue = Email
End If

If MyValue = "" Then
Return
Else

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Makepdf


MyFile = Dir(newpdf_name)
If "c:temp" + MyFile <> newpdf_name Then
MsgBox MyFile
End If

On Error Resume Next

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = MyValue
.Body = "Bonjour." & Chr(13) & "Veuillez trouver ci-joint une
correspondance concernant votre dossier ." _
& Chr(13) & Chr(13) & ref_complete & Chr(13) & Chr(13) &
"Cordialement" & Chr(13) & "Toto"
.Subject = "Assurances " & refCourtier
'Add the document as an attachment, you can use the .displayname
property
'to set the description that's used in the message
.Attachments.Add Source:=newpdf_name, Type:=olByValue, _
DisplayName:="Document as attachment"
.Display
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing
End If
' supprimes les fichiers temporaires
Kill newpdf_name
Kill pdf_name



End Sub



Oliv' wrote:

Bonjour à tous,
J'allais poser la même question que notre ami François,
Je dois envoyer à des clients des documents générés par Word
,(applicatif associé à un progiciel) (plusieurs dizaines de doc par
jours et utilisateurs)
Pour cela j'ai une macro word qui active la protection du document et
envoi ce document en pièces jointes de mail.
Le document word est ensuite stocké dans un logiciel de GED, au
format OLE. J'avais pensé mettre une macro dans le doc interdisant la
fonction copier ou couper mais selon son niveau de sécurité et si le
destinataire n'active pas les macros cela ne fonctionnera pas.
Et pas de ACROBAT, seulement une imprimante "Amyuni PDF Converter",
ca doit être le même principe que PDF995 ?, il faudrait que j'imprime
dans un fichier, et récupère ce fichier dans mon mail en le
protégeant J'ai installé PDF995 et signature995 , cela fonctionne
(avec message d'attente sur la version freeware), maintenant faut
que j'essaye de tout mettre cela dans ma macro en utilisant le mode
ligne de commande. Oliv'


Anacoluthe wrote:

Bonjour !

'Circé' nous a écrit ...

PDF995

Il permet de protéger aussi comme Acrobat ?

Voici une question intelligente !!!! :-D
Malheureusement, je ne pense pas... :-(

Il semble que si :
http://www.signature995.com/stdencrypt.htm
JièL va être content ! (tu lui traduiras ;-) )

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM

Bonjoir(c) Anacoluthe

Le 22/03/2005 20:59 vous avez écrit ceci :

Il permet de protéger aussi comme Acrobat ?

Voici une question intelligente !!!! :-D
Malheureusement, je ne pense pas... :-(

Il semble que si :
http://www.signature995.com/stdencrypt.htm
JièL va être content ! (tu lui traduiras ;-) )

Merci, je me sens plus cultivationné du coup ;-)
Et puis ça pourrait servir un jour

« On se protège des autres au lieu de se protéger de soi-même. »

C'est ce qu'on me dit toujours, je suis un vrai danger ;-)))

--
JièL D'ange hé

Merci BEAUCOUP Anacoluthe,
je vais tester ce code
Have a nice day
Oliv'

Anacoluthe wrote:

Bonjour !

'Oliv'' nous a écrit ...

Afin de compléter mes macros ci-dessous je voudrais savoir comment
coder
en vba les "options des messages" , notamment "enregistrer le
message envoyé dans " et "demander un ar" ?
la méthode que j'utilise est OutlookApp.CreateItem(olMailItem)
(voir le code ci-dessous )

Bravo pour votre macro ! Bel exemple d'utilisation de
Outlook pour envoyer depuis Word des emails en particulier
texte+PJ. Vous confirmez aussi une utilisation d'un freeware
(sauf un peu de pub) pour faire du pdf de qualité et protégé!

Pour "enregistrer le message envoyé dans" renseignez un
MAPIFolder (objet Dossier Outlook) dans votre séquence
With oItem
...
Set .SaveSentMessageFolder = monMAPIFolder
' et pour l'accusé de réception :
.OriginatorDeliveryReportRequested = True
...
End With

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM

Oliv' wrote:

Re à tous ,
Je crois avoir bien travaillé voici le resultat la tite macro qui
transforme en pdf (Protégé) mon document word et prépare un mail
OUTLOOK avec ce fichier en pièce jointe .

Il faut ajouter dans outils/références la référence à "Microsoft
outlook
11.0 object library" pour la macro SendPdfAsAttachment

Il faut au préalable avoir une imprimante pdf d'installée ici AMYUNI
et la modifier dans le code
et le programme SIGNATURE995

SendPdfAsAttachment recherche dans le document à envoyer les signets
suivants
"EMAIL", "ref_complete" et "refCourtier pour renseigner l'adresse et
le sujet du mail.
(Une fenêtre internet s'ouvre du fait de la version freeware de
SIGNATURE995 )
Vous pouvez utiliser la macro makepdf seule bien sûr
Merci pour le retour d'informations.
Oliv'


Public pdf_name
Public newpdf_name

Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)


Sub Makepdf()
'
' Macro enregistrée le 23/03/2005 par Olivier CATTEAU
'
'memorisation des options

oldprinter = ActivePrinter
oldoptionfields = Options.UpdateFieldsAtPrint
oldoptionLinks = Options.UpdateLinksAtPrint
oldoptionsPrintbackground = Options.PrintBackground
name_doc = ActiveDocument.Name
pdf_name = "c:temp" + name_doc + ".pdf"
'modification des options d'impression
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = True
.PrintBackground = False
End With
ActivePrinter = "Amyuni PDF Converter"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:úlse, Collate:=True, Background:úlse,
PrintToFile:= _
True, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0,
OutputFileName:=pdf_name, Append:úlse

'recuperation du pdf et securisation
newpdf_name = "c:tempnew" + name_doc + ".pdf"
fichiers_pdf = pdf_name + " " + newpdf_name


securepdf = "C:pdf995resutilitiessignature995Pdf995 Standard
Encryption.exe " + fichiers_pdf + " """" """" 10000000 128"

Shell (securepdf)

'envoi par mail du pdf

Sleep 1000



'remise en place des options
ActivePrinter = oldprinter
With Options
.UpdateFieldsAtPrint = oldoptionfields
.UpdateLinksAtPrint = oldoptionLinks
.PrintBackground = oldoptionsPrintbackground
End With

End Sub

Sub SendPdfAsAttachment()
'
' Macro enregistrée le 23/03/2005 par Olivier CATTEAU
'

'Si automatique ne pose pas la question de adresse Email et
protection Response = MsgBox(prompt:="Voulez vous executez
automatiquement
la macro ? (ne pose pas la question de adresse Email )",
buttons:=vbYesNo)



'repere les signets des modeles winpass

On Error Resume Next

Selection.GoTo What:=wdGoToBookmark, Name:="EMAIL"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Email = Selection

Selection.GoTo What:=wdGoToBookmark, Name:="ref_complete"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
ref_complete = Selection

Selection.GoTo What:=wdGoToBookmark, Name:="refCourtier"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
refCourtier = Selection



On Error GoTo 0
Dim Message, Title, Default, MyValue
' Définit le message.
If Response = vbNo Then
Message = "Indiquez le destinataire Principal du mail"
Title = "Liste des destinataires " ' Définit le titre.
Default = Email ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Else: MyValue = Email
End If

If MyValue = "" Then
Return
Else

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Makepdf


MyFile = Dir(newpdf_name)
If "c:temp" + MyFile <> newpdf_name Then
MsgBox MyFile
End If

On Error Resume Next

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = MyValue
.Body = "Bonjour." & Chr(13) & "Veuillez trouver ci-joint une
correspondance concernant votre dossier ." _
& Chr(13) & Chr(13) & ref_complete & Chr(13) & Chr(13) &
"Cordialement" & Chr(13) & "Toto"
.Subject = "Assurances " & refCourtier
'Add the document as an attachment, you can use the .displayname
property
'to set the description that's used in the message
.Attachments.Add Source:=newpdf_name, Type:=olByValue, _
DisplayName:="Document as attachment"
.Display
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing
End If
' supprimes les fichiers temporaires
Kill newpdf_name
Kill pdf_name



End Sub



Oliv' wrote:

Bonjour à tous,
J'allais poser la même question que notre ami François,
Je dois envoyer à des clients des documents générés par Word
,(applicatif associé à un progiciel) (plusieurs dizaines de doc par
jours et utilisateurs)
Pour cela j'ai une macro word qui active la protection du document
et envoi ce document en pièces jointes de mail.
Le document word est ensuite stocké dans un logiciel de GED, au
format OLE. J'avais pensé mettre une macro dans le doc interdisant
la fonction copier ou couper mais selon son niveau de sécurité et
si le destinataire n'active pas les macros cela ne fonctionnera
pas.
Et pas de ACROBAT, seulement une imprimante "Amyuni PDF Converter",
ca doit être le même principe que PDF995 ?, il faudrait que
j'imprime dans un fichier, et récupère ce fichier dans mon mail en
le protégeant J'ai installé PDF995 et signature995 , cela
fonctionne (avec message d'attente sur la version freeware),
maintenant faut que j'essaye de tout mettre cela dans ma macro en
utilisant le mode ligne de commande. Oliv'


Anacoluthe wrote:

Bonjour !

'Circé' nous a écrit ...

PDF995

Il permet de protéger aussi comme Acrobat ?

Voici une question intelligente !!!! :-D
Malheureusement, je ne pense pas... :-(

Il semble que si :
http://www.signature995.com/stdencrypt.htm
JièL va être content ! (tu lui traduiras ;-) )

Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM