如何破解excel宏密码的方法
学习啦在线学习网如何破解excel宏密码的方法
在Excel中经常需要设置密码保护重要的数据，但时间过后密码就会容易忘记，这个时候就需要破解密码了，接下来是学习啦小编为大家带来的如何破解excel宏密码的方法，希望对你有用。
如何破解excel宏密码的方法：
学习啦在线学习网 破解宏密码步骤1：打开需要破解的文件，并点开需要输入密码的界面，如图
学习啦在线学习网 破解宏密码步骤2：使用EXCEL.EXE重新打开一个工作簿。
破解宏密码步骤3：打开新工作簿的VBA代码区域，并插入一个模块。
学习啦在线学习网 破解宏密码步骤4：插入如下代码
Sub test()
学习啦在线学习网 Dim st, nd, th3, th4, th5, th6, th7, th8 As Variant
学习啦在线学习网 Dim ii, jj, kk, ll, mm, nn, oo, pp, qq As Integer
学习啦在线学习网 Dim PADN, PD, IJ, JK, PADNO, speed
speed = 0.005
st = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
nd = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th3 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th4 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th5 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th6 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
学习啦在线学习网 th7 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th8 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
PADN = InputBox("How long the password is", "Guilin Hu", 4)
PADNO = CInt(PADN)
For IJ = 1 To 100
If Sheet1.Cells(IJ, 1) = "" Then
学习啦在线学习网 Sheet1.Cells(IJ, 1) = Now
Exit For
Else
End If
Next IJ
PauseTime = 2
学习啦在线学习网 Start = Timer
学习啦在线学习网 Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 Select Case (PADNO)
Case 1
For ii = 0 To 61
PD = st(ii)
SendKeys PD
PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
学习啦在线学习网 Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
Next ii
Case 2
学习啦在线学习网 For ii = 0 To 61
For jj = 0 To 61
PD = st(ii) & nd(jj)
学习啦在线学习网 SendKeys PD
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
Next jj
Next ii
Case 3
学习啦在线学习网 For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
学习啦在线学习网 PD = st(ii) & nd(jj) & th3(kk)
学习啦在线学习网 SendKeys PD
学习啦在线学习网 PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
SendKeys "{enter}"
PauseTime = speed
学习啦在线学习网 Start = Timer
学习啦在线学习网 Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
SendKeys "{enter}"
Next kk
Next jj
Next ii
Case 4
学习啦在线学习网 For ii = 0 To 61
For jj = 0 To 61
学习啦在线学习网 For kk = 0 To 61
For ll = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll)
SendKeys PD
学习啦在线学习网 PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
PauseTime = speed
Start = Timer
学习啦在线学习网 Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
Next ll
Next kk
Next jj
Next ii
Case 5
学习啦在线学习网 For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
学习啦在线学习网 For ll = 0 To 61
For mm = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm)
SendKeys PD
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
学习啦在线学习网 PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next mm
Next ll
Next kk
Next jj
Next ii
Case 6
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
学习啦在线学习网 For mm = 0 To 61
For nn = 0 To 61
学习啦在线学习网 PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn)
SendKeys PD
PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
学习啦在线学习网 SendKeys "{enter}"
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
学习啦在线学习网 Finish = Timer
SendKeys "{enter}"
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
Case 7
学习啦在线学习网 For ii = 0 To 61
学习啦在线学习网 For jj = 0 To 61
学习啦在线学习网 For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
For nn = 0 To 61
For oo = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo)
SendKeys PD
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
学习啦在线学习网 Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
学习啦在线学习网 DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next oo
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
Case 8
学习啦在线学习网 For ii = 0 To 61
学习啦在线学习网 For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
学习啦在线学习网 For nn = 0 To 61
For oo = 0 To 61
学习啦在线学习网 For pp = 0 To 61
学习啦在线学习网 PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo) & th8(pp)
SendKeys PD
学习啦在线学习网 PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
学习啦在线学习网 Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next pp
Next oo
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
学习啦在线学习网 End Select
学习啦在线学习网 For JK = 1 To 100
学习啦在线学习网 If Sheet1.Cells(JK, 2) = "" Then
Sheet1.Cells(JK, 2) = Now
Exit For
Else
End If
Next JK
End Sub
破解宏密码步骤5：按F5执行代码，输入密码长度。如果不知道密码的长度，就猜，第一次输1，第二次输2。。。依次试。
破解宏密码步骤6：输入密码长度后，点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。
学习啦在线学习网 破解宏密码步骤7：没有破解不开的密码。主要的是你有时间就好!1位密码破解最长时间：62/(1/0.005)=0.31秒;2位数密码破解最长时间：62*62/(1/0.005)=19.22秒。。。依次类推：N位数密码破解时间：(62)的N次方/(1/0.005)秒的时间。就看您的耐性了!破解完成之后就会自动进去VBA代码模块。
学习啦在线学习网 破解宏密码步骤8：接下来就是修改别人的密码了!进去果断点击VBA工程属性，。。。“干啥?”。。。。哈哈 改密!!
破解宏密码步骤9：看哥的密码改的!哈哈。。。