Board logo

标题: [问题求助] 以下加密的高级选项在VBS中怎么改? [打印本页]

作者: ww0000    时间: 2015-1-22 09:44     标题: 以下加密的高级选项在VBS中怎么改?

以下是VBA加密的高级选项,放在VBS中怎么改?谢谢
wk.SetPasswordEncryptionOptions PasswordEncryptionProvider:= _
        "Microsoft Base Cryptographic Provider v1.0", PasswordEncryptionAlgorithm:= _
        "RC4", PasswordEncryptionKeyLength:=40, PasswordEncryptionFileProperties:=True
作者: yu2n    时间: 2015-1-22 11:18

打开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
复制代码

作者: ww0000    时间: 2015-1-22 11:34

回复 2# yu2n


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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2