Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 769|回复: 7

[已解决]求助,请大佬帮忙修改!

[复制链接]
发表于 2021-8-26 17:14 | 显示全部楼层 |阅读模式
本帖最后由 万事亨通 于 2021-8-27 11:41 编辑

求助,设置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:48 编辑

稍微修改了下
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-8-27 14:38 | 显示全部楼层    本楼为最佳答案   
本帖最后由 高 于 2021-8-27 14:48 编辑

稍微修改了下

3次后出现打开密码并开始10次后自杀.rar

13.78 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2021-8-28 14:36 | 显示全部楼层
本帖最后由 万事亨通 于 2021-8-28 14:39 编辑

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

使用道具 举报

发表于 2021-8-28 18:23 | 显示全部楼层
本帖最后由 高 于 2021-8-28 18:26 编辑
万事亨通 发表于 2021-8-28 14:36
谢谢,
但是还有个位置想修改,就是那个次数提示能在使用密码的时候才开始弹出吗,

就是这样的吧
回复

使用道具 举报

 楼主| 发表于 2021-8-30 07:57 | 显示全部楼层

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

回复

使用道具 举报

发表于 2021-8-30 09:53 | 显示全部楼层
本帖最后由 高 于 2021-8-30 09:56 编辑
万事亨通 发表于 2021-8-30 07:57
现在不是,
而是一打开就有“消息框提示”,

运行一下 “初始化”代码,此文件里有。就是这几句,就是原文件中的
  1. Sub 初始化()
  2. SaveSetting "MyApp", "Startup", "aaa", 1
  3. SaveSetting "hhh", "budget", "使用次数", ""
  4. ActiveWorkbook.Password = ""
  5. End Sub
复制代码

回复

使用道具 举报

 楼主| 发表于 2021-9-18 14:05 | 显示全部楼层
高 发表于 2021-8-30 09:53
运行一下 “初始化”代码,此文件里有。就是这几句,就是原文件中的

你好,密码不可以改吗
回复

使用道具 举报

发表于 2021-9-21 08:09 | 显示全部楼层
学习了,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2022-8-13 14:26 , Processed in 0.207164 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表