SetPasswordEncryptionOptions Method

expression.SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionAlgorithm)

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

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.

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