暴力破解Excel受保护的单元格密码
目录
暴力破解Excel受保护的单元格密码
暴力破解Excel受保护的单元格密码
分享一个暴力破解Excel受保护的单元格密码的方法
第一步
在Excel中按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。
第二步
在VBA编辑器中，点击插入菜单，选择模块。
第三步
在新建的模块中，输入以下VBA代码：
代码，复制粘贴进去
Option Explicit
Sub RemovePassword()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
On Error Resume Next
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & _
Chr(i2) & Chr(i3) & Chr(i4) & _
Chr(i5) & Chr(i6) & Chr(n)
On Error GoTo 0
If ActiveSheet.ProtectContents = False Then
MsgBox "密码为：" & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & _
Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & _
Chr(i6) & Chr(n)
Exit Sub
End If
Next n
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Next m
Next l
Next k
Next j
Next i
End Sub第四步
按下F5键或在VBA编辑器中点击运行菜单，选择运行子过程。
第五步
等待几秒钟，弹出的消息框将显示你的密码。
