【原】一小段Excel VBA代码022：限制指定工作簿的打开次数

一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求：有些工作簿，发给别人使用的时候，故意设置只能被阅读一次！别人阅读完关闭后， 就不能再重新打开工作簿了！这种场景我们需要使用工作簿事件来实现！见下面代码实现需求！

代码示例

在工作簿模块中加入如下代码即可实现上面的演示功能。

Private Sub Workbook_Open()
Dim x As Long
With Worksheets("隐藏表")
 x = .Cells(1, "A") + 1
 .Cells(1, "A") = .Cells(1, "A") + 1
End With
If x > 1 Then
 MsgBox "本工作簿只能阅读1次! "
 Application.Quit
End If
End Sub

---

注意1：工作簿中，我们隐藏了一个工作表 ，表名称为“隐藏表”，我们每次打开工作簿，就将该表中的A1单元格值累加1，从而记录打开了几次！

注意2： 务必将工作簿保存为.xlsm宏文件格式，在发给别人！

动手试一试，屏幕前的你， 复制代码运行下吧~~！

更多Excel VBA编程知识（职场牛人必备秘技），可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳下面链接：

《神奇的VBA》-职场牛人都在使用的Excel插件

《神奇的VBA》选项卡样式

神奇的VBA使用演示图