Document.Password (Word)

Define uma senha que deve ser fornecida para abrir o documento especificado. Cadeia de caracteressomente gravação.

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