Manipulation des fichiers word protégés

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 879 fois - Téléchargée 74 fois

Contenu du snippet

cette source vous montre comment attribuer un mot de passe à un document microsoft word ouvert puis vous explique comment ouvrir un document protégé sans intervention de l'utilisateur

Source / Exemple :


Sub protectdocument()
'protège le document actif
Dim msword As Word.Application
Set msword = Word.Application
msword.ActiveDocument.password = "nix" 'vous me direz que j'aurais pu trouver mieux comme mot de passe :o)
msword.ActiveDocument.Save
msword.Quit
End Sub

Sub opendocument(file, password)
Dim msword As Word.Application
Set msword = Word.Application
'consultez l'aide relative à open
msword.Documents.Open file, , , , password
End Sub

Conclusion :


n'oubliez pas d'incrire la bibliothèque d'objet microsoft word dans votre projet

A voir également

Ajouter un commentaire

Commentaires

merci, je suis en train de faire un programme tres interessant, et quand je vais le terminer, je vai le ajouter dans votre site.
salut
Pourriez-vous m'indiquer comment ouvrir un fichier word protégé lorsque le mot de passe est oublié ?
Pourriez-vous m'indiquer comment ouvrir un fichier word protégé lorsque le mot de passe est oublié ?
pourrais-t'on m'indiquer comment on fait pour ouvrir un fichier Word ou Excel quand on a oublié le mot de passe.
Comment je peut inscrire la bibliothèque d'objet microsoft word dans mon projet !!!
Réponder moi par E-mail svp

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.