怎样使用VBA文件只能使用三次？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Workbook_Open()

Dim t
  Application.DisplayAlerts=False
  Application.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 If
t=t+1
SaveSetting "App", "Startup", "andy", t
End Sub

5、重新启动工作簿，程序提示还有两次使用机会，如图所示。当第三次开启工作簿时，在提示框中单击“确定”按钮后工作簿自动销毁。