excel中用vba编写限制excel使用次数的代码

求代码，希望高手奉献，如果可以用，本人再加送100积分

希望达到如下目的
1）可以从代码中限制excel的使用次数，如25次，则第26次则要求权限或其他什么的，总之可以自由开，自由关。

Private Sub Workbook_Open()
Worksheets(2).ScrollArea = "A1:IV65535"
If Sheets("Sheet2").Cells(65536, 256).Value < 3 Then
Sheets("Sheet2").Cells(65536, 256).Value = Sheets("Sheet2").Cells(65536, 256).Value + 1
ActiveWorkbook.Save
Else
a = InputBox("请输入密码", "密码验证")
If a <> "abc" Then
Application.Quit
End If
End If
End Sub
打开次数的存放的解决办法：我选择存放在Sheet2的最下脚，并将Cells(65536, 256).设置为白色。然后将最后一行放弃（使不能选择）这样用户就看不到这个数字，就是看到了也不能修改
然后你可以去将你的宏加入数字签名。这样就可以强制使用宏了。

有什么新发现或者更好的办法也告诉我一声

你得找一个单元格记录打开次数。在excel里，在第一个工作表里，选中单元格z1，同时按ctrl和f3进入名称编辑器，新建，名称处输入 numofopen 确定，关闭。 右键点z列，隐藏。 然后同时按alt和f11进入宏界面，在左上窗口找到本工作簿的“thisworkbook"，双击它，在右边粘贴如下代码： private sub workbook_open() range("numofopen") = range("numofopen") + 1 msgbox range("numofopen") end sub 回到excel，存盘退出。再打开就可以了。