曾经看到过一个关于Excel自毁功能的视频教程，经认真学习后，我写下了自己的代码，分享于此。
实现思路：
使用VBA创建一个隐藏的名称，记录当前工作簿打开的次数，如果次数超过指定数值，则自动删除本工作簿。
应用范围：
1、用于VBA开发时，发给别人测试某功能（因测试版，不应发放到外部，所以添加自删除功能）。
2、出于其它原因，需要限定用户使用次数的。
事件代码（ThisWorkbook）： 在Excel打开时判断是否需要读取运行次数。（首先判断用户名称，避免调试时，删掉自己的“劳动成果”）
Private Sub Workbook_Open()
If Application.UserName <> "Name" Then
Call ReadOpenCount
ThisWorkbook.Save
End If
End Sub
过程代码（模块）：
1、添加一个隐藏的名称，用于记录打开的次数。
Sub AddHiddenNames()
ThisWorkbook.Names.Add Name:="OpenCount", Visible:=False, RefersTo:="=0"
End Sub
2、读取工作簿已经打开的次数，如果达到次数"自毁"，未达到"次数"+1。（本段代码，定义的是3次）
Sub ReadOpenCount()
Dim iCount As Byte
iCount = Evaluate(ThisWorkbook.Names("OpenCount").RefersTo)
iCount = iCount + 1
If iCount > 3 Then
Call KillThisWorkBook
Else
ThisWorkbook.Names("OpenCount").RefersTo = "=" & iCount
End If
End Sub
3、实现“自毁”功能，但是不提示用户。
Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End Sub
虽然上述代码执行后，能得到预期的结果，但是别忘了，“宏”是可以被禁用的，甚至有的用户根本不知道该如何“启用宏”，这就不在本文记述的范围之内了。
