Document.Password (Word)

Définit un mot de passe doit être fourni pour ouvrir le document spécifié.

Set myDoc = Documents _ 
 .Open(FileName:="C:\My Documents\Earnings.doc") 
myDoc.Password = strPassword 
myDoc.Close