如何破解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 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。。。依次试。

破解宏密码步骤7：没有破解不开的密码。主要的是你有时间就好!1位密码破解最长时间：62/(1/0.005)=0.31秒;2位数密码破解最长时间：62*62/(1/0.005)=19.22秒。。。依次类推：N位数密码破解时间：(62)的N次方/(1/0.005)秒的时间。就看您的耐性了!破解完成之后就会自动进去VBA代码模块。

破解宏密码步骤9：看哥的密码改的!哈哈。。。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。