Document.PasswordEncryptionProvider (Word)

Returns a String specifying the name of the algorithm encryption provider that Microsoft Word uses when encrypting documents with passwords.

Use the SetPasswordEncryptionOptions method to specify the name of the algorithm encryption provider Word uses when encrypting documents with passwords.

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