Document.WriteReserved (Word)

True if the specified document is protected with a write password.

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