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

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