Share via


PasswordEncryptionProvider Property [Excel 2003 VBA Language Reference]

Returns a String specifying the name of the algorithm encryption provider that Microsoft Excel uses when encrypting passwords for the specified workbook. Read-only.

expression.PasswordEncryptionProvider

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

Example

This example sets the password encryption options for the specified workbook, if the file properties are not encrypted for password-protected workbooks.

Sub SetPasswordOptions()

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

End Sub

Applies to | Workbook Object