[已解决]自杀VBA删除后，为什么不可以重新使用了

wuliao_tao

自杀VBA如何可以重新使用。Private Sub Workbook_Open()
mykey = GetSetting(appname:="MyApp", section:="Startup", _
                       Key:="Left", Default:="25")
   If mykey > 0 Then
     MsgBox "你还有" & mykey & "次试用机会。"
     Else
     MsgBox "试用次数已到，如要继续使用请与作者联系。"
     ThisWorkbook.Close
   End If
   SaveSetting "myapp", "startup", "left", mykey - 1

End Sub

这个方法使用25次后，就无法使用了，就提示：试用次数已到，如要继续使用请与作者联系。"
我再把它重新放在其它EXCEL文件中，第一次就提示‘试用次数已到，如要继续使用请与作者联系’，为什么不从第一次开始倒数使用了，如何可以重新使用，从第一次开始。

最佳答案

月排行榜 / 总排行榜

nothingwmm

2011-1-25 06:15

tkgg93 发表于 2011-1-24 23:03
把 left 随便改个名字，比如改成 qwe 就又可以使用25次

这个做法好，换一个参数就行了，楼主，你想别人25次不能用了，你又想着自己用完25次又可以在再用，自己都有点矛盾把。

跳转到最佳答案楼层

青城山苦丁茶

不是回了单独执行SaveSetting "Myapp", "Startup", "Left", 10，再打开你的文件吗？

青城山苦丁茶

或者在mykey取值前加一句DeleteSetting "MyApp", "Startup"，那他一直是还有25次了

raulerini

tkgg93

把 left 随便改个名字，比如改成 qwe 就又可以使用25次

tkgg93

在当前模块查找left
替换其它任意英文字符

raulerini

呵呵，直接在注册表中将这个键值改成100不就可以了吗？为啥还要再新建一个键呢？

nothingwmm

tkgg93 发表于 2011-1-24 23:03
把 left 随便改个名字，比如改成 qwe 就又可以使用25次

这个做法好，换一个参数就行了，楼主，你想别人25次不能用了，你又想着自己用完25次又可以在再用，自己都有点矛盾把。

nothingwmm

raulerini 发表于 2011-1-25 09:38
呵呵，直接在注册表中将这个键值改成100不就可以了吗？为啥还要再新建一个键呢？

你的方法是好，可是找注册表不很方便，你的注册表法还真是不错，我学习了

amulee

把这段代码删了，不就能用了？