Office中国论坛/Access中国论坛

标题: 请教如何限制EXCEL的使用次数，或者有效期，不满足条件时自动删除 [打印本页]

作者: yhd7879 时间: 2007-9-20 16:02
标题: 请教如何限制EXCEL的使用次数，或者有效期，不满足条件时自动删除
请教如何限制EXCEL的使用次数，或者有效期，不满足条件时自动删除

作者: pureshadow 时间: 2007-9-20 19:52
Private Sub Workbook_Open()
aaa = GetSetting(appname:="myapp", section:="startup", key:="使用次数", Default:=1)
MsgBox "您还可以使用的次数为" & (20 - aaa) & "次，请尽快与作者联系！"
If aaa = 20 Then
DeleteSetting "myapp", "startup"
MsgBox "系统将被删除，感谢您的试用，再见！"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
aaa = aaa + 1
SaveSetting "myapp", "startup", "使用次数", aaa
End Sub

作者: yhd7879 时间: 2007-10-17 13:37
，非常感谢！！！谢谢！！！

作者: 刘志文 时间: 2008-12-15 19:24
学习下!![:50] [:50]

作者: litong9999 时间: 2009-9-17 12:39
非常感谢！！！谢谢！！！

作者: a30088 时间: 2009-12-25 13:45
非常感谢！！！谢谢！！！

作者: huangli0356 时间: 2012-11-14 09:33
要能有个实例就更漂亮了..

作者: qqmike 时间: 2012-11-20 10:56
电脑群：102714497，招聘群：116262060, 用友财务软件讨论群：135290710,旅游群：149969150,新闻群： 151791797,影视音乐群：151604602,唐诗、宋词、元曲群:46093514，Office办公软件群：193927255，PS群：193930496，法律群：193936060，哺乳、孕妇群：199804606,中软系统交流群:193858584,疑难杂症群:116183096,英语群:257485258,体育群：92387150，编程软件群：27336443,手机群:273823099,linux系统群：166349346，家常菜群：241859462,三剑客群:274352958,系统封装群:275631462,游戏群:275634213,服务器群:276776177,月历壁纸、屏保群:277944992

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)