[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 以下加密的高级选项在VBS中怎么改?

以下是VBA加密的高级选项,放在VBS中怎么改?谢谢
wk.SetPasswordEncryptionOptions PasswordEncryptionProvider:= _
        "Microsoft Base Cryptographic Provider v1.0", PasswordEncryptionAlgorithm:= _
        "RC4", PasswordEncryptionKeyLength:=40, PasswordEncryptionFileProperties:=True

打开VBA,按F1打开帮助,查找 SetPasswordEncryptionOptions :
  1. Excel 2007 开发人员参考 > Excel 对象模型参考 > Workbook 对象 > 方法
  2. Excel 开发人员参考
  3. Workbook.SetPasswordEncryptionOptions 方法
  4. 使用密码来设置对工作簿进行加密的选项。
  5. 语法
  6. 表达式.SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties)
  7. 表达式   一个代表 Workbook 对象的变量。
  8. 参数
  9. 名称 必选/可选 数据类型 描述
  10. PasswordEncryptionProvider 可选 Variant 区分大小写的加密服务提供商的字符串。
  11. PasswordEncryptionAlgorithm 可选 Variant 区分大小写的算法简称的字符串(例如“RC4”)。
  12. PasswordEncryptionKeyLength 可选 Variant 加密密钥的长度,为 8 的倍数(40 或更大)。
  13. PasswordEncryptionFileProperties 可选 Variant 如果为 True(默认值),则加密文件属性。
  14. 说明
  15. PasswordEncryptionProvider、PasswordEncryptionAlgorithm 和 PasswordEncryptionKeyLength 参数不相互独立。选定的加密提供商限制了可以选择的算法和密钥长度的设置。
  16. 对于 PasswordEncryptionKeyLength 参数来说,没有固定的对密钥长度范围的限制。该范围是由“加密服务提供商”确定的,同时还确定加密算法。
  17. 示例
  18. 本示例设置活动工作簿的密码加密选项。
  19. Visual Basic for Applications
  20. Sub SetPasswordOptions()
  21.     ActiveWorkbook.SetPasswordEncryptionOptions _
  22.         PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
  23.         PasswordEncryptionAlgorithm:="RC4", _
  24.         PasswordEncryptionKeyLength:=56, _
  25.         PasswordEncryptionFileProperties:=True
  26. End Sub
  27. © 2006 Microsoft Corporation。保留所有权利。
  28. 请参阅
  29. Workbook 对象
  30. Workbook 对象成员
复制代码


<参数名称> := <参数内容>
将<参数内容>填入<参数名称>对应位置即可,如果没有对应的<参数名称>,则留空:
  1. wk.SetPasswordEncryptionOptions "Microsoft Base Cryptographic Provider v1.0", "RC4", 40, True
复制代码
1

评分人数

    • ww0000: 感谢老师帮助!技术 + 1
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

回复 2# yu2n


    成功,很好!谢谢老师!现在这样加密更安全了!!

TOP

返回列表