暴力破解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编辑器中点击运行菜单，选择运行子过程。

第五步

等待几秒钟，弹出的消息框将显示你的密码。