Document.WritePassword (Word)

Define uma senha para gravação de alterações no documento especificado. Somente gravação cadeia de caracteres.

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