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