expression.PasswordEncryptionAlgorithm
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 password-protected workbooks.
Example
This example sets the password encryption options for the active workbook.
Sub SetPasswordOptions()
ActiveWorkbook.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
End Sub