SetPasswordEncryptionOptions Method

Sets the options Microsoft Word uses for encrypting documents with passwords.

expression   Required. An expression that returns one of the objects in the Applies To list.

PasswordEncryptionProvider  Required String. The name of the encryption provider.

PasswordEncryptionAlgorithm  Required String. The name of the encryption algorithm. Word supports stream-encrypted algorithms.

PasswordEncryptionKeyLength  Required Long. The encryption key length. Must be a multiple of 8, starting at 40.

PasswordEncryptionFileProperties  Optional Variant. True for Word to encrypt file properties. Default is True.

Example

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 Microsoft 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