返回目录：excel表格制作
限制工作簿e79fa5e98193e58685e5aeb9332的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。
代码如下：
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 ' 限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
ounter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub
Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。
用VBA控制
1.限制Excel文件使用的次数，实现方法，如下图：
2.上图中，假设Sheet1、Sheet2、Sheet3三个工作表为包含重要数据的工作表；这个时候，我们再多新建一工作表，假设取名为Count，之后，在Count工作表的A1单元格中输入1；记住，Count中的A1单元格，就是使用来存储每次打开Excel文件的次数的；在Count工作表窗口中，执行如下图的操作，将工作表隐藏起来。
3.按住键盘的组合键“Alt F11”，这个时候，会打开VBA程序设计窗口，如下图。
4.打开的VBA程序设计窗口，在左边，能看到类似上图的界面，择“ThisWorkbook”并点击右键，同时执行“查看代码”，弹出如下图的代码编写小窗口。
5.上图中，务必选择事件为Open，就可以在窗口中输入代码了，代码如下图。
6.、输入好代码之后，在VBA窗口中，执行“文件”→“保存(这里显示工作薄名称)”，关闭VBA窗口，返回Excel窗口；就这样，整个过程完成了。每次打开这个Excel文件时，会在Count工作表的A1单元格中自动将原值加1，如果超过使用的次数，那么，会看到如下图的提示。
7.点击确定e799bee5baa6e79fa5e98193e78988e69d83335按钮，会自动退出Excel窗口，以此，来达到限制使用次数的目的。