Document.WriteReserved (Word)

True si el documento especificado está protegido con una contraseña de escritura.

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