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
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.