Document.WritePassword (Word)

Définit un mot de passe pour l'enregistrement des modifications apportées au document spécifié.

Set myDoc = ActiveDocument 
If myDoc.WriteReserved = False Then myDoc.WritePassword = "secret"