1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub Workbook_Open猾诮沓靥()Dim t Application.DisplayAlerts=False Applicat足毂忍珩ion.EnableCancelKey=xlDisabled t=GetSetting(appname:="App", section:="Startup", key:="andy", Default:=1) MsgBox "您还可以开启本工作簿" & 3-t & "次。", vbOKOnly, "提示" If t=3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End Ift=t+1SaveSetting "App", "Startup", "andy", tEnd Sub
5、重新启动工作簿，程序提示还有两次使用机会，如图所示。当第三次患束锍瓜开启工作簿时，在提示框中单击“确定”按钮后工作簿自动销毁。
