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

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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rvvyevje.html