Document.HasPassword (Word)

True if a password is required to open the specified document.

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