Document.Password (Word)

Sets a password that must be supplied to open the specified document. Write-only String.

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