excel - 用户输入错误密码 3 次后，Excel 工作簿是否可以自毁？

Question

我知道 Excel 工作簿可以受密码保护。有没有办法将 Excel 工作簿配置为在密码输入错误 3 次后自毁或锁定进一步尝试？

Answer 1

首先，您必须通过以下方式在 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

我不熟悉设置密码的正确语法，我只是以此作为参考。

如果您需要自我删除部分的参考，您可以查看此处。