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

itxianfeng

楼主的编写的代码真是厉害，让人眼花缭乱，还没等看明白就成灰色的空白了。
如果用户宏的安全性调制为中的时候，就禁止宏运行，这个代码是不是就不灵验了。

[ 本帖最后由 itxianfeng 于 2009-3-25 17:06 编辑 ]

everee

瞒天过海，偷梁换柱

BK2011

我能看到啊。没删掉

高玉甫

楼主的删除工作表中代码的代码固然是很好，但是，里面缺少时间的限制。如果能在代码里加上“到某年某月某日时，打开这个工作薄，10秒钟后便消除该工作薄里所有的VBA代码，包括这段删除代码的代码”，如果能做到这样，那才算得上高明。
    以上，请楼主帮忙予以实现，其他高手们不妨也一试身手。
    我等待楼主和高手们的绝妙代码。

高玉甫

难道就没有这方面的高手了？

liu985

谢谢楼主分享，有一个问题请赐教，为何我把您的两段代码：
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Workbook_Open()
……
和
Sub BkpFilAndDel()
……

复制到我的表里，把宏安全性设置为高，打开文件时没有“由于您没有启用宏，本文件即将关闭”的提示窗口？
这一功能是怎样实现的？

xloyo

是我需要的好东西啊,支持!

高玉甫

我 24  楼提出的问题还是没有得到解决，大师，请帮帮忙吧，谢谢您。

liu985

果然是好东西，收藏了，不过还有个遗憾，就是在删除代码的同时，工作表对象（比如插入的图片）也一起删除了，希望楼主予以解决（工作表对象的位置不能改变）。
如果真能这样就完美了
已解决，因为工作表加了保护，所以图片对象才没复制过去，哈哈。

[ 本帖最后由 liu985 于 2009-11-1 18:48 编辑 ]

高玉甫

我 24  楼提出的问题还是没有得到解决，大师们，请帮帮忙吧，谢谢您们。