请教如何限制EXCEL的使用次数，或者有效期，不满足条件时自动删除

yhd7879

请教如何限制EXCEL的使用次数，或者有效期，不满足条件时自动删除

pureshadow

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

，非常感谢！！！谢谢！！！

刘志文

学习下!![:50] [:50]

litong9999

非常感谢！！！谢谢！！！

a30088

非常感谢！！！谢谢！！！

huangli0356

要能有个实例就更漂亮了..

qqmike

电脑群：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