怎样限制一个软件的使用次数？

chat163

Private Sub Workbook_Open() Application.DisplayAlerts = False ' aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1 SaveSetting "MyApp", "Startup", "aaa", aa

End Sub

walterlai

谢啦 !!

FeiHong

to:tof 搜索一下以前的帖子，贴出过！

sqac

在一个受保护的EXCEL表里储存一个值，然后在workbook_open事件中加入 Sheet1.Cells(1, 1) = Sheet1.Cells(1, 1) + 1 If Sheet1.Cells(1, 1) > 30 Then ThisWorkbook.Close savechanges:=False End If 注：sheet1为受保护的表，cells(1,1)为储存数据的单元格。 [upload=rar]uploadImages/200242623395986954.rar[/upload]

[此贴子已经被sqac于2002-4-26 23:40:33编辑过]

惊叹不已

在注册表里建一个键值保存使用的次数,每次运行你的VBA程序先判断这个数值,如果为0就退出,否则就将这个数值减1.