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

米特峰

1. Private Sub Workbook_Open()
   
2. 'http://www.excelpx.com/thread-156943-1-1.html
   
3. mykey = GetSetting(appname:="MyApp", section:="Startup", _
   
4.                        Key:="Left", Default:="25") '把 left 随便改个名字，比如改成 qwe 就又可以使用25次
   
5.    If mykey > 0 Then
   
6.      MsgBox "你还有" & mykey & "次试用机会。"
   
7.      Else
   
8.      MsgBox "试用次数已到，如要继续使用请与作者联系。"
   
9.      With ThisWorkbook
   
10.         .Saved = True
    
11.         .ChangeFileAccess xlReadOnly
    
12.         Kill .FullName
    
13.         .Close False
    
14.     End With
    
15. 
    
16. End If
    
17.    SaveSetting "myapp", "startup", "left", mykey - 1
    
18. 
    
19. End Sub
    

复制代码

彻底删除