Document.PasswordEncryptionFileProperties (Word)

True if Microsoft Word encrypts file properties for password-protected documents.

Use the SetPasswordEncryptionOptions method to specify whether Word encrypts file properties for password-protected documents.

Sub PasswordSettings() 
 With ActiveDocument 
 If .PasswordEncryptionFileProperties = False Then 
 .SetPasswordEncryptionOptions _ 
 PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _ 
 PasswordEncryptionAlgorithm:="RC4", _ 
 PasswordEncryptionKeyLength:=56, _ 
 PasswordEncryptionFileProperties:=True 
 End If 
 End With 
End Sub