Document.WriteReserved (Word)

True se o documento especificado é protegido com uma senha de gravação. Boolean somente leitura.

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