Document.WriteReserved (Word)

True si le document spécifié est protégé par un mot de passe d'écriture.

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