Document.WriteReserved (Word)

True, wenn das angegebene Dokument mit einem Schreibkennwort geschützt ist.

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