Document.WritePassword (Word)

Sets a password for saving changes to the specified document. Write-only String.

Set myDoc = ActiveDocument 
If myDoc.WriteReserved = False Then myDoc.WritePassword = "secret"