Document.Password (Word)

Establece una contraseña que se debe proporcionar para abrir el documento especificado.

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