Document.PasswordEncryptionAlgorithm Property (Word)
Office 2013
Returns a String indicating the algorithm Microsoft Word uses for encrypting documents with passwords. Read-only.
Use the SetPasswordEncryptionOptions method to specify the algorithm Word uses for encrypting documents with passwords.
This example sets the password encryption options if the password encryption algorithm in use is "OfficeXor," which is the password algorithm used in versions of Word prior to Word 97 for Windows.
Sub PasswordSettings() With ActiveDocument If .PasswordEncryptionAlgorithm = "OfficeXor" Then .SetPasswordEncryptionOptions _ PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _ PasswordEncryptionAlgorithm:="RC4", _ PasswordEncryptionKeyLength:=56, _ PasswordEncryptionFileProperties:=True End If End With End Sub