Document.WritePassword (Word)

Establece una contraseña para guardar los cambios efectuados en el documento especificado.

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