暴力破解Excel受掩护的单元格暗码

暴力破解Excel受掩护的单元格暗码

分享一个暴力破解Excel受掩护的单元格暗码的方法
第一步

在Excel中按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。

第二步

在VBA编辑器中，点击插入菜单，选择模块。

第三步

在新建的模块中，输入以下VBA代码：

代码，复制粘贴进去

1. Option Explicit
3. Sub RemovePassword()
4.     Dim i As Integer, j As Integer, k As Integer
5.     Dim l As Integer, m As Integer, n As Integer
6.     Dim i1 As Integer, i2 As Integer, i3 As Integer
7.     Dim i4 As Integer, i5 As Integer, i6 As Integer
8.    
9.     For i = 65 To 66
10.         For j = 65 To 66
11.             For k = 65 To 66
12.                 For l = 65 To 66
13.                     For m = 65 To 66
14.                         For i1 = 65 To 66
15.                             For i2 = 65 To 66
16.                                 For i3 = 65 To 66
17.                                     For i4 = 65 To 66
18.                                         For i5 = 65 To 66
19.                                             For i6 = 65 To 66
20.                                                 For n = 32 To 126
21.                                                     On Error Resume Next
22.                                                     ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
23.                                                                            Chr(l) & Chr(m) & Chr(i1) & _
24.                                                                            Chr(i2) & Chr(i3) & Chr(i4) & _
25.                                                                            Chr(i5) & Chr(i6) & Chr(n)
26.                                                     On Error GoTo 0
27.                                                     If ActiveSheet.ProtectContents = False Then
28.                                                         MsgBox "密码为：" & Chr(i) & Chr(j) & _
29.                                                                Chr(k) & Chr(l) & Chr(m) & Chr(i1) & _
30.                                                                Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & _
31.                                                                Chr(i6) & Chr(n)
32.                                                         Exit Sub
33.                                                     End If
34.                                                 Next n
35.                                             Next i6
36.                                         Next i5
37.                                     Next i4
38.                                 Next i3
39.                             Next i2
40.                         Next i1
41.                     Next m
42.                 Next l
43.             Next k
44.         Next j
45.     Next i
46. End Sub

复制代码

第四步

按下F5键或在VBA编辑器中点击运行菜单，选择运行子过程。

第五步

期待几秒钟，弹出的消息框将表现你的暗码。