求最牛的自杀功能

遥望下

在此先谢谢您，愿大家工作爱情双喜临门，新朋老友心心相印，财运和你纠缠不清，福运和你形影不分。祝你吉祥之年事事如意，步步高升。


帮忙写一段，可以打开3次后就要输入密码，输入密码错误时自杀。谢谢！（能自动加载宏就更加好了{:soso_e102:}）




制作带自杀功能的工作簿_Excel VBA实战技巧精粹03

http://club.excelhome.net/thread-1038797-1-1.html




说明:格式中别用自动换行,要不会报错误!!!
玩转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_Open()
Call readopentimes
End Sub


Sub killthisworkbook()
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close
End With
End Sub

（按以上方法试过不行不知道为什么，我用的是2010版本）

hmg

可行，
在 2007 里面，那个名称是在 “公式”选项卡下。
编辑方式，打开3次后自杀。
在保存的时候，文件类型选择“启用宏的工作薄”就直接启用宏啦。

wengjl

这个试了，是成功的。工作簿删除了，工作表上的数据就丢失了。

我希望是：工作簿里的VBA代码清空，工作簿保留，这样工作表上的数据　不会丢失。
这样如何实现啊？