操作方法
打开需要破解的文件，并点开需要输入密码的界面，如图
使用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 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
按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工程属性，。。。“干啥？”。。。。哈哈 改密！！
看哥的密码改的！哈哈。。。