PasswordEncryptionKeyLength Property [Excel 2003 VBA Language Reference]
Returns a Long indicating the key length of the algorithm Microsoft Excel uses when encrypting passwords for the specified workbook. Read-only.
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
Applies to | Workbook Object