Document.HasPassword (Word)

True si un mot de passe est nécessaire pour ouvrir le document spécifié.

ActiveDocument.Password = "kittycat" 
If ActiveDocument.HasPassword = True Then _ 
 MsgBox "The password is set."