SetPasswordEncryptionOptions 方法

设置 Microsoft PowerPoint 通过密码加密演示文稿时使用的选项。

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

expression 必选。该表达式返回“应用于”列表中的对象之一。

PasswordEncryptionProvider 必选。String 类型。加密供应商的名称。

PasswordEncryptionAlgorithm 必选。String 类型。加密算法的名称。PowerPoint 支持流式加密算法。

PasswordEncryptionKeyLength 必选。Long 类型。加密密钥长度。必须是 8 的倍数，并且从 40 开始。

PasswordEncryptionFileProperties 必选。MsoTriState 类型。属性值为 MsoTrue 时，PowerPoint 加密文件的属性。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue 不用于此方法。

msoFalse

msoTriStateMixed 不用于此方法。

msoTriStateToggle 不用于此方法。

msoTrue

示例

本示例中，如果使用密码保护的文档的文件属性没有加密，将设置密码加密选项。

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