本月活动：EXCEL里面如何实现试用和注册功能？大家都喜欢用excel编制一些自己的设计和概预算小软件，当然，把自己的成果共享出来是网易水利的宗旨。不过，经常在网上看到一些测试或者试用版的软件，只是不知道他们是如何实现“试用”功能的，用excel的vba能否也实现这个功能，希望大家讨论！
本月活动：EXCEL里面如何实现试用和注册功能？
大家都喜欢用excel编制一些自己的设计和概预算小软件，当然，把自己的成果共享出来是网易水利的宗旨。
不过，经常在网上看到一些测试或者试用版的软件，只是不知道他们是如何实现“试用”功能的，用excel的vba能否也实现这个功能，希望大家讨论！
2楼
利用VBA编程实现试用次数功能这不是问题。
问题是怎样才能使VBA代码不能被查看，讨论一下这个问题才是正道。
欢迎大家将加密后的程序放上来让高手们测试看是否能被破解，代码不能被查看了再谈“如何实现试用次数功能”吧。
回复
3楼
问题挺高深，飞走，学习一圈再回来
回复
4楼
你倒好，回帖是好事，却又偷换了我的主题，哎。任何加密都是相对而言的，不管你做成什么版本，人家都会破解的，我的只是针对不会的朋友而言！不加密也是为了大家能够学习学习！
回复
5楼
我用2秒钟破解了，如下：
密码是：23K5
程序如下：
Private Sub CommandButton1_Click()
MsgBox ("OK")
End Sub
回复
6楼
我是用这个软件破解的：
回复
7楼
大家还是谈谈如何实现“试用”功能的，用excel的vba能否也实现这个功能，希望大家讨论！
回复
8楼
此类软件无法破解被锁定的VBA工程。
回复
9楼
试例.rar
回复
10楼
Option Explicit
’说明：一个简单的次数限制程序，设定运行3次。
Private Sub Workbook_Open()
Sheet1.Cells(1, 1) = Sheet1.Cells(1, 1) + 1
If Sheet1.Cells(1, 1) <= Sheet1.Cells(1, 2) Then
Me.Save
Else
ThisWorkbook.Close False
End If
End Sub
回复
11楼
真是电脑高手
见识了
学习学习，以后要多来向各位指教了
非常惭愧的是，我学VBA学了一点，又静不下心去学习了
回复
