如何在excel的vba中实现"不加载宏就不能打开工作表"?

来源：百度知道 编辑：UC知道 时间：2024/05/14 17:22:31
不知道可不可以只在thisworkbook下编写代码来实现?如果不行,应该怎样实现编写呢?如果软件可限制文件的打开次数也可以.

思路：
可以在工作簿的打开事件中加入代码判断。

Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("sheet1").Range("a65536").Value >= 4 Then
MsgBox "您不能打开该工作簿，已超过最大打开次数。"
ThisWorkbook.Close SaveChanges:=False '不保存工作簿就关闭
Else
ThisWorkbook.Worksheets("sheet1").Range("a65536").Value = ThisWorkbook.Worksheets("sheet1").Range("a65536").Value + 1
End If
End Sub