Question

我知道Excel工作簿可以受密码保护。有没有一种方法可以配置一个Excel工作簿，使其在输入错误的3x密码后自动销毁或锁定其他尝试？

Answer 1

首先，您必须通过以下步骤在excel参考库中设置参考：

工具->参考->“ Microsoft Visual Basic应用程序可扩展性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

我不熟悉用于设置密码的正确语法，我只是使用this作为参考。

如果需要有关自动删除部分的参考，可以查看here。

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

1 个答案: