[已解决]求助，请大佬帮忙修改！

万事亨通

求助，设置N次后，密码打开，密码使用N次后，文件自杀！
以此代码如何修改能实现：
1.使用3次后输入密码打开；
2.开始使用密码时即进行剩余次数提醒，10次后文件自杀；

Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Startup", Key:="aaa", Default:=1)
If k > 4 Then
ActiveWorkbook.Protect Password:="888888", structure:=True, Windows:=True
ActiveWorkbook.Password = "888888"
End If
k = k + 1
SaveSetting "MyApp", "Startup", "aaa", k
End Sub

Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 10'10次
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
ThisWorkbook.Close False
End Sub

最佳答案

月排行榜 / 总排行榜

高

2021-8-27 14:38

稍微修改了下

跳转到最佳答案楼层

高

稍微修改了下

万事亨通

高 发表于 2021-8-27 14:38
稍微修改了下

谢谢，
但是还有个位置想修改，就是那个次数提示能在使用密码的时候才开始弹出吗，

高

万事亨通 发表于 2021-8-28 14:36
谢谢，
但是还有个位置想修改，就是那个次数提示能在使用密码的时候才开始弹出吗，

就是这样的吧

万事亨通

高 发表于 2021-8-28 18:23
就是这样的吧

现在不是，
而是一打开就有“消息框提示”，

高

万事亨通 发表于 2021-8-30 07:57
现在不是，
而是一打开就有“消息框提示”，

运行一下 “初始化”代码，此文件里有。就是这几句，就是原文件中的

1. Sub 初始化()
   
2. SaveSetting "MyApp", "Startup", "aaa", 1
   
3. SaveSetting "hhh", "budget", "使用次数", ""
   
4. ActiveWorkbook.Password = ""
   
5. End Sub

复制代码

万事亨通

高 发表于 2021-8-30 09:53
运行一下 “初始化”代码，此文件里有。就是这几句，就是原文件中的

你好，密码不可以改吗

ioi_chan

学习了，谢谢