本示例设置活动工作簿的密码加密选项。


ActiveWorkbook.SetPasswordEncryptionOptions _
    PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
    PasswordEncryptionAlgorithm:="RC4", _
    PasswordEncryptionKeyLength:=128, _
    PasswordEncryptionFileProperties:=True