如何破解excel vba密码

方法/步骤

打开需要破解的文件，并点开需要输入密码的界面，如图

使用EXCELEXE重新打开一个工作簿。

打开新工作簿的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 = 0005

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 Sheet1Cells(IJ, 1) = "" Then

Sheet1Cells(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 Sheet1Cells(JK, 2) = "" Then

Sheet1Cells(JK, 2) = Now

Exit For

Else

End If

Next JK

End Sub

按F5执行代码，输入密码长度。如果不知道密码的长度，就猜，第一次输1，第二次输2。。。依次试。

输入密码长度后，点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。

没有破解不开的密码。主要的是你有时间就好！1位密码破解最长时间：62/（1/0005）=031秒；2位数密码破解最长时间：6262/(1/0005)=1922秒。。。依次类推：N位数密码破解时间：（62）的N次方/（1/0005）秒的时间。就看您的耐性了！破解完成之后就会自动进去VBA代码模块。

接下来就是修改别人的密码了！进去果断点击VBA工程属性，。。。“干啥？”。。。。哈哈 改密！！

看哥的密码改的！哈哈。。。

使用UltreEdit之类的十六进制编辑程序打开XLS文件，在文本模式下查找“[Host Extender Info]”(也可只查Host)，切换到十六进制模式，将前面的“DBP＝"XXXXXXX”的DBP关键字改成CBP，将“GC＝ "XXXXXXX”的GC关键字改成CC，使Excel不能识别此二项！存盘即可！！！

用Excel打开此文件，忽略错误提示，进入VBA编辑器，做一次存盘 *** 作即可修复错误提示。

方法/步骤

打开需要破解的文件，并点开需要输入密码的界面，如图

使用EXCELEXE重新打开一个工作簿。

打开新工作簿的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 = 0005

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 Sheet1Cells(IJ, 1) = "" Then

Sheet1Cells(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 Sheet1Cells(JK, 2) = "" Then

Sheet1Cells(JK, 2) = Now

Exit For

Else

End If

Next JK

End Sub

按F5执行代码，输入密码长度。如果不知道密码的长度，就猜，第一次输1，第二次输2。。。依次试。

输入密码长度后，点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。

没有破解不开的密码。主要的是你有时间就好！1位密码破解最长时间：62/（1/0005）=031秒；2位数密码破解最长时间：6262/(1/0005)=1922秒。。。依次类推：N位数密码破解时间：（62）的N次方/（1/0005）秒的时间。就看您的耐性了！破解完成之后就会自动进去VBA代码模块。

接下来就是修改别人的密码了！进去果断点击VBA工程属性，。。。“干啥？”。。。。哈哈 改密！！

看哥的密码改的！哈哈。。。

以上就是关于如何破解excel vba密码全部的内容，包括:如何破解excel vba密码、vba程序设置密码,如何破解密码、如何破解EXCEL VBA密码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！