VBA如何保护好您的作品.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
如何保护好您的作品!!!!! 当你辛辛苦苦开发出的程序作品后,是不是想过怎样来保护好程序的源代码呢!,保护好程序源码,在大多会员来看都是非常关心的问题.遗憾的是,Excel不像其他的开发软件一样,在加密上很容易被各种密码破解软件破译.尽管这样,我们也应尽可能来保护Excel工作簿和VBA源码。 一、为VBA工程设置密码 限制别人查看VBA源代码的一个简单办法就是设置VBA工程密码或设置工程不可查看。方法如下: 1、按Alt+F11,在VBE窗口在,单击“工具—VBAproject属性”,打开“VBAproject属性”对话框。 2、单击“VBAproject属性”对话框中的“保护”选项卡。如图1所示,选中“查看时锁定工程”复选框。在“密码”框中输入保护密码,在“确认密码”框中再输入一次密码,然后单击“确定”,关闭“VBAproject属性”对话框。 1.JPG (26.96 KB) 2009-6-8 11:26 3、保存并关闭工作簿。 当你再打开该工作簿后,打开VBE窗口时,就不再显示VBA的窗体、模块等对象,看不到VBA源代码了。 ★提示:这种密码保护很容易破解。★ 二、设置工程不可查看 限制别人查看VBA源代码的方法就是设置“工程不可查看”。方法如下: 共享级锁定:先对Excel文件的“VBAProject工程”进行密码保护(参考“为VBA工程设置密码”)。再打开要保护的文件,单击“工具_保护_保护并共享工作簿_以追踪修订方式共享”,如图2所示,输入保护密码再保存文件。当你得新打开“VBAProject”工程属性时,就将会提示:“工程不可看!” 2.JPG (20.57 KB) 2009-6-8 11:26 破坏型锁定:用16进制编辑工具(如WinHex等)打开Excel文件,查找定位以下地方: ID=0000-0000-0000-000000000000}(注:实际显示不会全部为0),此时,你只要将其中的字节随便修改一下即可。 ★提示:在修改前最好做好你的文档备份。当然这种方法也可破解的,因为加密总是相对。★ 三、防止强制中断方式查看VBA代码 有时,我们可以通过运行程序,然后在运行的过程中强制按“Ctrl+Break”强制中断程序运行,进VBE编辑器查看源码。为此,我们可以在工作簿的open事件中加入以下语句来屏蔽“Ctrl+Break”组合键。 Application.EnableCancelKey = xlDisabled 如果要恢复“Ctrl+Break”组合键,则用下面的语句。 Application.EnableCancelKey = xlInterrupt 四、禁用宏则关闭Excel文件 当打开含有宏的文件时,如果“禁用宏”并打开文件后,所有编辑的VBA程序将失效。如何当用户打开Excel文件并禁用宏时,让文件自动关闭呢? 我们可以通过调用Excel4.0版(Excel的一个老版本)的宏命令来解决这个问题。因为“禁用宏”功能无法禁用4.0版本的宏。当您设置完成,再打开文件并点击禁用宏时,系统就会弹如下图所示提示信息,单击“确定”后文件就会自动关闭。 3.JPG (12.48 KB) 2009-6-8 11:26 禁用宏后的提示信息 设置步骤和使用方法: (1)打开要设置的文件,在VBE编辑器中添加一个模块。写入以下代码: Function NoRunMacro ()? ?’A3单元格中的字符 End Function (2)在任一个工作表标签上单元格右键,执行“插入”命令打开如下图所示对话框,在常用选项卡中选取“MS Excel4.0宏表”项,然后单击“确定”按钮,在当前工作簿中就会新建一个默认名Macro1的“宏表”,更改表名为“宏表1” 4.JPG (23.21 KB) 2009-6-8 11:26 在宏表的以下单元格中输入公式: 6.JPG (52.36 KB) 2009-6-8 11:26 (3)逐个选取工作簿中其他工作表,然后执行【插入】/【名称】/【定义】命令,打开【定义名称】对话框。在“在当前工作簿中的名称”框中输入:工作表名称+Auto_Activate。如下图所示在Sheet1工作表中打开【定义名称】对话框,定义的名称就为:Sheet1!Auto_Activate。 然后在引用位置文本框中输入:=宏表1!$A$2。 5.JPG (26.02 KB) 2009-6-8 11:26 ★提示:对于一个工作表数量较多的工作表逐个设置会很麻烦。所以这时可以只需为其中一个设置名称,但要保障“当打开工作簿时,必需是设置名称的工作表处于选取状态”★ 五、限制工作簿的使用次数,超过次数就自我删除 限制工作簿的使用次数,超过次数就自我删除,也不失为保护作品

文档评论(0)

ktj823 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档