Manipulation des fichiers word protégés

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_painkiller)