WriteReserved Property Example

This example displays a message if the active document has a write password.

If ActiveDocument.WriteReserved = True Then 
    MsgBox "Changes cannot be made to this document."
End If