很讨厌那些屌丝老外装B把VBA设密码，大家都是地球人，不可以相互学习么！哎。。。左思右想，写出一个简易，但是花费时间的破解方法，仅供大家参考！若是有更简易的方法，大家可以互相交流下！我一定要把那个老外的表格破解了！！！Fuck!.................
前期准备工作（包括相关工具或所使用的原料等）
Microsoft Excel And My Talent详细的操作方法或具体步骤
打开需要破解的文件，并点开需要输入密码的界面，如图
使用EXCEL.EXE重新打开一个工作簿。
打开新工作簿的VBA代码区域，并插入一个模块。
插入如下代码
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
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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
Next ii
Case 2
For ii=0 To 61
For jj=0 To 61
PD=st(ii) & nd(jj)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{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)
SKeys PD
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
PauseTime=speed
Start=Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish=Timer
SKeys "{enter}"
Next pp
Next oo
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
Select
For JK=1 To 100
If Sheet1.Cells(JK, 2)="" Then
Sheet1.Cells(JK, 2)=Now
Exit For
Else
If
Next JK
Sub
按F5执行代码，输入密码长度。如果不知道密码的长度，就猜，第一次输1，第二次输2。。。依次试。
输入密码长度后，点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。
没有破解不开的密码。主要的是你有时间就好！1位密码破解最长时间：62/（1/0.005）=0.31秒；2位数密码破解最长时间：62*62/(1/0.005)=19.22秒。。。依次类推：N位数密码破解时间：（62）的N次方/（1/0.005）秒的时间。就看您的耐性了！破解完成之后就会自动进去VBA代码模块。
接下来就是修改别人的密码了！进去果断点击VBA工程属性，。。。“干啥？”。。。。哈哈 改密！！
看哥的密码改的！哈哈。。。
注意事项
在按完F5后，不要使用鼠标做任何动作，否则会死机的！！切记啊 兄弟！经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-