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

Question

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

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

Answer 1

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).设置为白色。然后将最后一行放弃（使不能选择）这样用户就看不到这个数字，就是看到了也不能修改
然后你可以去将你的宏加入数字签名。这样就可以强制使用宏了。

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