[分享]10秒后删除自身的代码

xq1234 · 发表于 2006-11-5 20:32

1。这个文件不能从压缩文件中直接运行,必须解压缩后才能运行.

2。这个文件必须启用宏才能运行.

3。这个文件自身的代码在对话框关闭后10秒将被删除并关闭,你再打开就没有代码了,也没有宏存在了.

4。这个文件与勾不勾选“信任对于VBA项目的访问”无关。取消勾选“信任对于VBA项目的访问”也会在10秒后删除自身代码。

zGA5UJN2.rar (7.87 KB, 下载次数: 552)

另：在将本人这方面的代码运用于你的程序时，请注意保存你原来的代码或另外保留一个备份文件，否则运行本代码之后谁也无法恢复，那我就成为千古罪人了。

[此贴子已经被作者于2006-11-5 23:28:23编辑过]

月黑风高 · 发表于 2006-11-5 21:38

有创意,不错,不过如果手较快的话一样可以看到代码,并且将代码导出,不知道加上工程密码后还能不能用?

zz5151353 · 发表于 2006-11-5 21:39

不錯謝謝樓主提供分享 !!!

[em23][em23][em23][em24][em24][em24][em27][em27][em27]

月黑风高 · 发表于 2006-11-5 21:47

加了工程密码后一样可以删除代码,是个好东西,谢谢楼主,高手,高手,高高手

xq1234 · 发表于 2006-11-5 22:07

实例中请在适当位置加上以下两句，本人不再具体表述了：

Application.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterrupt

xq1234 · 发表于 2006-11-5 22:19

在一楼上传了第二附件，以便于大家学习。

czji · 发表于 2006-11-5 22:36

QUOTE:

以下是引用xq1234在2006-11-5 22:07:23的发言：

实例中请在适当位置加上以下两句，本人不再具体表述了：

Application.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterrupt

说来听听这是什么意思?

xq1234 · 发表于 2006-11-5 23:22

QUOTE:

以下是引用czji在2006-11-5 22:36:49的发言：

说来听听这是什么意思?

多按F1

EnableCancelKey 属性

参阅应用于示例特性

控制 Microsoft Excel 将 Ctrl+Break（或 Esc、Command+Period）用户中断用于运行程序的处理方式。XlEnableCancelKey 类型，可读写。

XlEnableCancelKey 可为以下 XlEnableCancelKey 常量之一。

xlDisabled 完全禁用“取消”键捕获功能。

xlErrorHandler 将中断作为错误信号传递给运行程序，由 On Error GoTo 语句设置的错误处理程序捕获。可捕获的错误代码为 18。

xlInterrupt 中断当前运行程序，用户可进行调试或结束程序的运行。

expression.EnableCancelKey

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

说明

使用该属性应小心。如果使用 xlDisabled，则没有办法中断失控循环或者其他的不能自结束的代码；另外，虽然该属性设为 xlErrorHandler，但是错误处理程序总使用 Resume 语句返回，同样没有办法终止失控程序。

只要 Microsoft Excel 返回空闲状态并且没有程序处于运行状态，EnableCancelKey 属性都会重置为 xlInterrupt。若要在程序运行中捕获或者禁用取消过程，则每次在程序被调用时必须明确更改 EnableCancelKey 属性。

smhf_6 · 发表于 2006-11-6 04:38

其实，对于只能在本机上运行的代码，很简单，你不给别人就得了，问题是：说到最后，产品总是要给别人用的，一个人藏着也没意思。当然，知识产权也是要保护的，我想能不能怎样？给别人的产品中加入几行代码：如果有人在EXCEL标签上点击右键选为“查看代码”时、点击“工具-宏-编辑”时、按ALT+F11时、不知道是否还有其它进入方式？自动删除代码或者自杀。

xq1234 · 发表于 2006-11-6 20:20

QUOTE:

以下是引用smhf_6在2006-11-6 4:38:41的发言：

其实，对于只能在本机上运行的代码，很简单，你不给别人就得了，问题是：说到最后，产品总是要给别人用的，一个人藏着也没意思。当然，知识产权也是要保护的，我想能不能怎样？给别人的产品中加入几行代码：如果有人在EXCEL标签上点击右键选为“查看代码”时、点击“工具-宏-编辑”时、按ALT+F11时、不知道是否还有其它进入方式？自动删除代码或者自杀。

smhf_6的想法不错，我想可以根据EXCEL菜单的ID来做一个自定义事件，打开VBE应该是通过一个命令ID来完成的。根据这个命令ID做一个自定义事件来删除代码或自杀。可惜本人水平不够。望高手指点。

这要涉及的类模块，我这里有一位高手做的工作表删除的自定义事件 QWqyIvMv.rar (12.88 KB, 下载次数: 293)

		自动登录	找回密码
密码			免费注册