Document.Password (Word)

Legt ein Kennwort fest, das zum Öffnen des angegebenen Dokuments angegeben werden muss.

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