自杀的代码九：定时自杀工作簿

hhzjxss

<p><font size="4">这是兰版《VBA技巧应用》里的代码，贴出来给大家看看!</font></p><p><font size="4">该文件为自杀文件，要想查看代码，需要在打开文件时点击禁用宏。否则文件就会自行删除。<br/>如果要试看删除效果，建议提前备份一个“自杀”文件以防文件丢失。</font></p><p><font size="4">rivate Sub Workbook_Open()</font><br/>If Now() &gt;= #9/15/2006# Then<br/>ActiveWorkbook.ChangeFileAccess xlReadOnly<br/>&nbsp; Kill ActiveWorkbook.FullName<br/>&nbsp; Application.Quit<br/>End If<br/>End Sub<br/></p>

[此贴子已经被作者于2007-8-2 15:37:12编辑过]

hhzjxss

<p>传上附件：</p><p></p><p></p><br/>

[此贴子已经被作者于2007-8-2 15:36:54编辑过]

白海豚

<strong><font face="Verdana" color="#da2549">hhzjxss老师．．这么多自杀的，，，我只看，不用．．以免．．５５５</font></strong>[em05][em05]

lgm19761004

挺有趣的

hhzjxss

呵呵，要一杀光！

hhzjxss

<p>呵呵，</p><p></p><img src="data/attachment/forum/dvbbs/2007-8/2007851834611607.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/>

[此贴子已经被作者于2007-8-5 18:03:49编辑过]

龙行天下8888

学习

寒夜雪辰

[em17][em17]

sd6310514

学习下

dhysh

我自己做了一个将代码复制，为何不杀啊