WritePassword Property Example
If the active document isn't already protected against saving changes, this example sets "secret" as the write password for the document.
Set myDoc = ActiveDocument
If myDoc.WriteReserved = False Then myDoc.WritePassword = "secret"