[已解决]EXCEL用VBA代码设置打开次数出错

soulcolor

以下代码设置的是打开超过3次，就自动销毁，但每次只能打开1次，在打开第2次的时候就提示已超过次次，就自动销毁了，求助各位老师帮忙解答啦！

Private Sub Workbook_Open()

    Dim counter As Long

    Dim term As Long

    cs = GetSetting("hhh", "budget", "使用次数", "")

    If cs = "" Then

        term = 3 '限制使用3次,自己修改

        MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation

        SaveSetting "hhh", "budget", "使用次数", term

    Else

        counter = Val(chk) - 1

        MsgBox "您还能使用" & counter & "次,请及时注册!", vbExclamation

        SaveSetting "hhh", "budget", "使用次数", counter

        If counter <= 0 Then

            DeleteSetting "hhh", "budget", "使用次数"

            killme

        End If

    End If

End Sub

Public Sub killme()

    Application.DisplayAlerts = False

    ActiveWorkbook.ChangeFileAccess xlReadOnly

    Kill ActiveWorkbook.FullName

    Application.Quit '连程序一块关闭

End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-18 14:22

修改下面这里：

1.     Else
   
2.         counter = Val(cs) - 1

复制代码

括号里面不是chk，应该是cs

跳转到最佳答案楼层

大灰狼1976

修改下面这里：

1.     Else
   
2.         counter = Val(cs) - 1

复制代码

括号里面不是chk，应该是cs