Document.HasPassword (Word)

True si se requiere una contraseña para abrir el documento especificado.

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