星链币 > 我想请问一些电脑高手，如何将一个WORD或者EXCEL设置了密码之后，当有人密码连续错误后文件自动损坏？

我想请问一些电脑高手，如何将一个WORD或者EXCEL设置了密码之后，当有人密码连续错误后文件自动损坏？

2025-05-10 03:52:25

推荐回答（1个）

回答1：

试试这个吧！

Private Sub Workbook_Open()
Static i As Byte
Application.Visible = False
Sheets(1).Select
star:
i = i + 1
If i > 2 Then KILLME
XX = InputBox("输入密码", "提示")
If XX = "123" Then
Application.Visible = True
Exit Sub
Else
GoTo star
End If
End Sub

Public Sub KILLME()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub