如何破解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：看哥的密碼改的!哈哈。。。