PasswordEncryptionKeyLength Property

expression.PasswordEncryptionKeyLength

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

Remarks

Use the SetPasswordEncryptionOptions method to specify whether Excel encrypts file properties for the specified password-protected workbook.

Example

This example sets the password encryption options for the specified workbook, if the password encryption key length is less than 56.

Sub SetPasswordOptions()

    With ActiveWorkbook
        If .PasswordEncryptionKeyLength < 56 Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With

End Sub