excel自杀程序.docVIP

说明:格式中别用自动换行,要不会报错误!!! 玩转excel，制作带自杀功能的电子表格， 新建一个电子表格文件，按下ALT+F11，打开VB编辑器，双击左侧工程选项卡中的thisworkbook，打开代码窗口，将下列代码复制上去，其中“3”是可修改的参数 即打开一定的次数后表格自动消失 ，回到EXCEL，点击插入- 名称- 定义，名称定义为opentimes，引用位置 0，再回到代码编辑区，点一下第二段代码任意位置，按下F5，运行该段代码以隐藏名称名，再次回到定义名称选项卡，则opentimes隐藏不可见，保存文件，就可在工作表中编辑保密文件啦。 Sub readopentimes Dim otimes As Integer otimes Evaluate ThisWorkbook.Names opentimes .RefersTo otimes otimes + 1 If otimes 3 Then Call killthisworkbook Else ThisWorkbook.Names opentimes .RefersTo otimes End If End Sub Sub hidenames ThisWorkbook.Names opentimes .Visible False End Sub Private Sub Workbook_