2024年6月1日发(作者：)

Excel文档自杀程序设计

设计Excel文档自杀程序主要是限制使用者的使用次数或期限或使用地点等。当使用

到一定的次数或期限后，或改变使用地点名称等，文档会自动自杀消失。

使用自定义名称设置自杀

运行机理：打开工作薄时激发Open事件，运行“读取打开次数”程序，该过程读取

定义的名称opentimes的值，文件每打开一次，opentimes的值在原基础上加1，用If

函数判断这个值，如果数值大于100，则运行“自杀”程序消灭文件，如果数值不大于100，

原数值加1后保存。

Thisworkbook模块

Private Sub Workbook_Open()

Call 读取打开次数

End Sub

Moudle模块

打开工作簿，选中任意工作表任意一个单元格，执行“插入”-“名称”-“定义”，

在“在当前工作簿中的名称”框中输入“opentimes”，在下面的“引用位置”框中输入

0，定义完毕。把下面的代码过程放入标准模块中。

Sub 读取打开次数()

Dim Otime As Integer

Otime = Evaluate(("opentimes").RefersTo)

Otime = Otime + 1

If Otime > 100 Then

Call 自杀

Else

("opentimes").RefersTo = Otime

End If

End Sub

Moudle模块

Sub 自杀()