Rediger

Del via


Presentation.SetPasswordEncryptionOptions method (PowerPoint)

Sets the options Microsoft PowerPoint uses for encrypting presentations with passwords.

Syntax

expression. SetPasswordEncryptionOptions( _PasswordEncryptionProvider_, _PasswordEncryptionAlgorithm_, _PasswordEncryptionKeyLength_, _PasswordEncryptionFileProperties_ )

expression A variable that represents a Presentation object.

Parameters

Name Required/Optional Data type Description
PasswordEncryptionProvider Required String The name of the encryption provider.
PasswordEncryptionAlgorithm Required String The name of the encryption algorithm. PowerPoint supports stream-encrypted algorithms.
PasswordEncryptionKeyLength Required Long The encryption key length. Must be a multiple of 8, starting at 40.
PasswordEncryptionFileProperties Required MsoTriState msoTrue for PowerPoint to encrypt file properties.

Remarks

The PasswordEncryptionFileProperties parameter value can be one of these MsoTriState constants.

msoFalse
msoTrue

Example

This example sets the password encryption options if the file properties are not encrypted for password-protected documents.

Sub PasswordSettings()

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

End Sub

See also

Presentation Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.