本文目录一览：
- 1、如何破解excel宏的保护密码
- 2、Excel 如何破解工程不可查看
- 3、那位大侠知道EXCEL vba 工程不可见怎么破解
- 4、如何破解excel宏密码的方法
- 5、EXCEL中的宏命令设置了密码，如何打开？
- 6、Excel中的xlsm宏密码怎么破解
如何破解excel宏的保护密码
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出；
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " Chr(i) Chr(j) _
Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) Chr(j) _
Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。
第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。
Excel 如何破解工程不可查看
方法一（共用级锁定）
1、先对excel档进行一般的vbaproject”工程密码保护。
2、打开要保护的档，选择∶工具---保护---保护并共用活页簿---以追踪修订方式共用--输入密码--保存档。 完成後，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看！”
方法二（推荐，破坏型锁定）
用16进制编辑工具，如winhex、ultraedit-32（可到此下载）等，再历害点的人完全可以用debug命令来做......用以上软体打开excel档，查找定位以下地方∶
id="{00000000-0000-0000-0000-000000000000}" 注∶实际显示不会全部为0
此时，你只要将其中的位元组随便修改一下即可。保存再打开，就会发现大功告成！
当然，在修改前最好做好你的文档备份。至於恢复只要将改动过的地方还原即可（只要你记住了呵呵）。
破解方面,有网友说将CMG=，DPB=和GC=后的"="替换为"."也可以的，我已测试过的确可以，这样更省事点。用16进制编辑工具，如winhex、ultraedit-32打开X.xls文件，查找ID=......, 或到文件尾查看，找到即可。改其中的任意一位,存盘就可达到目的，注意：留有备份文件
望采纳，谢谢！
那位大侠知道EXCEL vba 工程不可见怎么破解
操作步骤说明：
首先，按Alt+F11进入VBE界面。
在要保护的工作簿名称上面鼠标右键，选择【VBAProject属性】。
在【保护】选项卡下将【查看时锁定工程】前的复选框选中，然后输入并确认密码。
上述设定完毕后，关闭VBE界面。选择功能区【审阅】-【共享工作簿】。
如下图所示，设定工作簿的共享，然后点击【确定】按钮。
点击【确定】后会收到如下的提示，在共享工作簿中VBA代码是不能被编辑的。
如何破解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：看哥的密码改的!哈哈。。。
EXCEL中的宏命令设置了密码，如何打开？
1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。
2、在弹出的对话框内选择信任中心。
3、点击信任中心设置，进入下一个对话框。
4、点击宏设置，而后选择启用所有宏。
5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。
6、就可以重新打开文件。
Excel中的xlsm宏密码怎么破解
首先，先去下载一款代码编辑器Notepad++
第二步，将待破解的档案后缀名称由.xlsm改为.rar或者.zip
第三步，使用压缩软件打开，进入xl目录找到vbaProject.bin文件
右键【打开】，选择已下载好的代码编辑器Notepad++
第四步，查找字符DPB并将其替换成DPx，保存文件，确定更新，关闭压缩档案，再重新修改后缀名.rar(或者是.zip)为.xlsm
第五步，使用excel打开.xlsm文件，弹出警告框，点击“是”，【开发工具】，【查看代码】，弹出未知错误提示框，点击“确定”。【工具】菜单，【VBAProject属性】打开工程属性，切换到【保护】标签，重新填入密码或者不填写密码（不填写密码时不要勾选查看是锁定工程），最后确定。
最后，保存后关闭档案，重新打开档案就可以看到里面的代码了
PS. 破解仅用来学习，但不要挡了别人的财路