excel - 用户输入错误密码 3 次后,Excel 工作簿是否可以自毁?
问题描述
我知道 Excel 工作簿可以受密码保护。有没有办法将 Excel 工作簿配置为在密码输入错误 3 次后自毁或锁定进一步尝试?
解决方案
首先,您必须通过以下方式在 excel 参考库中设置参考:
工具 -> 参考资料 -> “Microsoft Visual Basic For Applications Extensibility 5.3”
(在 vba 菜单中)
接下来,您将修改您的代码,使其看起来像这样:
Sub DeleteModule()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim passwordAttempt As Int
passwordAttempt = 0
Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("ModuleName")
password = Application.InputBox("Enter Password", "Password Protected")
Select Case password
Case Is = False
'do nothing
Case Is = "easy"
'do something
Case Else
MsgBox "Incorrect Password"
passwordAttempt = passwordAttempt + 1
End Select
if passwordAttempt == 3 Then
VBProj.VBComponents.Remove VBComp
end if
End Sub
我不熟悉设置密码的正确语法,我只是以此作为参考。
如果您需要自我删除部分的参考,您可以查看此处。
推荐阅读
- javascript - 我应该使用什么生命周期方法来监听状态变化并在反应类组件中相应地更新其他状态
- p5.js - 绘制矩形,p5.js
- sql-server - sql server 15 解析xml列返回null
- delphi - 无法正确使用相机
- excel - 通过 VBA 将一些 VBA 代码粘贴到每个新生成的工作表中
- c# - 如何在 asp.net core 3.1 中使用 http postasync
- javascript - React - 在 app src 文件夹中找不到 serviceWorker.js 文件
- c# - 无法使用 c# 访问 Outlook 2013 电子邮件发件人地址
- r - R如何按日期对数据进行分组并通过移动平均对其进行平滑处理
- bash - 从 bash 调用 lua 函数