随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA文件只能使用三次？

工具/原料

  • 手机

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

    在VBA编辑器中插入模块

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

    END

注意事项

  • 智能手机助理给我们的生活带来了极大的便利！
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。