如何破解vba工程密码

网上办者升昌法很多，试首扒试下笑孝面的代码：

'移除VBA编码保护

Sub MoveProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls*.xla", , "VBA破解")

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False

End If

End Sub

'设置VBA编码保护

Sub SetProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls*.xla", , "VBA破解")

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, True

End If

End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName & ".bak"

End If

Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功......", 32, "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "对文件特殊加密成功......", 32, "提示"

End If

Close #1

End Function

原文地址:http://www.excelba.com/showart.asp?art_id=81

这段代码很强的...!!

工具：5秒WORD-EXCEL密码破解.exe

步骤如下：

1、百度禅兄“5秒WORD-EXCEL密码破解”，点击下方的连接，下载软件，软件不是很大，直接下载下来就可以了，下载下来是一个压缩包，解压该压缩包。打开压缩包解压出来的文件夹，第二个文件就是我们的密码破解工具，双击打开工具。

2、浏览，找到我们要破解的文件，点击确贺配袭定，破解就开始啦。点击移除密码。

3、d出对话框，点击确定，当然，电脑卖知是要能联网的，相信你能看到这篇经验，电脑应该也是能联网的。

4、解密时间要看密码复杂程度，不过应该没有太变态的密码。

5、成功破解密码，并且生成了一个新的没有密码的文件。

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

使用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工程属性，。。。“干啥？”。。。。哈哈 改密！！

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

---