如何在excel的vba中实现"不加载宏就不能打开工作表"?
不知道可不可以只在thisworkbook下编写代码来实现?如果不行,应该怎样实现编写呢?如果软件可限制文件的打开次数也可以....
不知道可不可以只在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
可以在工作簿的打开事件中加入代码判断。
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
