1. 加密宏怎么破解
可以把宏程序放在O8000号后程序里，或者是放到O9000号后程序里，即可以加密。看不到程序，但可以运行。
2. 如何破解宏杰加密软件
宏杰文件夹加密。这是一款免费的、专业的、安全的文件夹加密软件，而且界面还比较漂亮，不会隐藏任何限制文件。
3. 如何给宏代码加密
首先，单击工具栏【开发工具】下的【宏】功能，也可以按住快捷键Alt+F8，快速启用宏：
弹出宏的对话框，显示已有的宏名称。
选中宏名，单击对话框右边的“删除”选项，弹出提示的对话框，询问用户是否删除该宏，单击是即可删除。
删除后，可以看到宏已经被删除掉了，按快捷键或者单击宏，已经不能运行之前的宏功能。
4. 宏文件怎么破解
方法一:点击工具、宏、安全性降为低。如不行只有清除密码保护，如方法二 方法二:1、打开需要执行宏的Excel文件 2、点插入、新表单 3、右击新插入的表单（在下面）选查看代码 4、粘贴以下代码 SubMoveProtect() DimFileNameAsString FileName=Application.GetOpenFilename("Excel文件（*.xls&*.xla）,*.xls;*.xla",,"VBA破解") IfFileName=CStr(False)Then ExitSub Else VBAPasswordFileName,False EndIf EndSub 5、点运行即可解除密码
5. 宏文件加密
宏病毒的主要特征如下：
宏病毒会感染.DOC 文档和.DOT 模板文件。
宏病毒的传染通常是 Word 在打开一个带宏病毒的文档或模板时，激活宏病毒。
多数宏病毒包含 AutoOpen、AutoClose、AutoNew 和 AutoExit 等自动宏，通过这些自动宏病毒取得文档（模板）操作权。
宏病毒中总是含有对文档读写操作的宏命令。
宏病毒在.DOC 文档、.DOT 模板中以 BFF（Binary File Format）格式存放，这是一种加密压缩格式，每个 Word 版本格式可能不兼容。
宏病毒具有兼容性
6. 破解excel宏加密
解密步骤1：先用Microsoft Office Excel 2003创建一个“2003.xls”的普通方式加密Excel文档。
解密步骤2：然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。
7. 怎么破解宏的密码
破解vbaproject密码
1．打开带密码的excel,视图---宏----录制宏---（保存到）“个人宏工作簿”---点“确认”。
2．查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面；
3．点“模块1“，弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西：
publicsub工作表保护密码破解()
constdblspaceasstring=vbnewline&vbnewline
constauthorsasstring=dblspace&vbnewline&_
"作者:mccormickjemcgimpsey"
constheaderasstring="工作表保护密码破解"
constversionasstring=dblspace&"版本version1.1.1"
constrepbackasstring=dblspace&""
constzhengliasstring=dblspace&"hfhzi3—戊冥整理"
constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_
&dblspace&"注意：不要用在不当地方，要尊重他人的劳动成果！"
constmsgnopwords1asstring="该文件工作表中没有加密"
constmsgnopwords2asstring="该文件工作表中没有加密2"
constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"
constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
constmsgonlyoneasstring="确保为唯一的?"
dimw1asworksheet,w2asworksheet
dimiasinteger,jasinteger,kasinteger,lasinteger
dimmasinteger,nasinteger,i1asinteger,i2asinteger
dimi3asinteger,i4asinteger,i5asinteger,i6asinteger
dimpword1asstring
dimshtagasboolean,wintagasboolean
application.screenupdating=false
withactiveworkbook
wintag=.protectstructureor.protectwindows
endwith
shtag=false
foreachw1inworksheets
shtag=shtagorw1.protectcontents
nextw1
ifnotshtagandnotwintagthen
msgboxmsgnopwords1,vbinformation,header
exitsub
endif
msgboxmsgtaketime,vbinformation,header
ifnotwintagthen
else
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
withactiveworkbook
.unprotectchr(i)&chr(j)&chr(k)&_
chr(l)&chr(m)&chr(i1)&chr(i2)&_
chr(i3)&chr(i4)&chr(i5)&chr(i6)&chr(n)
if.protectstructure=falseand_
.protectwindows=falsethen
pword1=chr(i)&chr(j)&chr(k)&chr(l)&_
chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
msgboxapplication.substitute(msgpwordfound1,_
"$$",pword1),vbinformation,header
exitdo'bypassallfor...nexts
endif
endwith
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
ifwintagandnotshtagthen
msgboxmsgonlyone,vbinformation,header
exitsub
endif
onerrorresumenext
foreachw1inworksheets
'attemptclearancewithpword1
w1.unprotectpword1
nextw1
onerrorgoto0
shtag=false
foreachw1inworksheets
'checksforallclearshtagtriggeredto1ifnot.
shtag=shtagorw1.protectcontents
nextw1
ifshtagthen
foreachw1inworksheets
withw1
if.protectcontentsthen
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
.unprotectchr(i)&chr(j)&chr(k)&_
chr(l)&chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
ifnot.protectcontentsthen
pword1=chr(i)&chr(j)&chr(k)&chr(l)&_
chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
msgboxapplication.substitute(msgpwordfound2,_
"$$",pword1),vbinformation,header
'leveragefindingpwordbytryingonothersheets
foreachw2inworksheets
w2.unprotectpword1
nextw2
exitdo'bypassallfor...nexts
endif
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
endwith
nextw1
endif
msgboxallclear&authors&version&repback&zhengli,vbinformation,header
endsub
4．点保存，然后关闭“book1”
5．点运行即可。
8. 怎样破解宏杰加密的文件
删除之前，先把你加密的文件夹解密（就是永久解密，不要临时解密，临时的等你关闭了就又加密了的），再卸载删除宏杰加密软件，如果你不先解密，那你删除了宏杰加密，你之前加密的文件夹就打不开了。
9. 宏密码如何破解
EXCEL工作表保护密码破解
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
内容如下：
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
10. 破解宏密码
如果excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一excel，同时按alt和f11，进入vba界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
subcrack()
dimiaslong
dimfilenameasstring
application.screenupdating=false
i=1
filename=application.getopenfilename("excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"vba破解")
filename=right(filename,len(filename)-instrrev(filename,"\"))
line2:
onerrorgotoline1
dowhiletrue
workbooks.openfilename,,,,i
msgbox"passwordis"&i
exitsub
loop
line1:
i=i+1
resumeline2
application.screenupdating=true
endsub
然后直接在此界面下按f5运行此宏
如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。
若果还有读写密码，且与打开密码一样，将workbooks.openfilename,,,,i改为workbooks.openfilename,,,,i,i
11. 破解宏数据
1、首先，打开受保护的Excel表格，按“ALT”+“F11”键，弹出如下的界面。2、点击“插入”――“模块”，出现下图3、打开“http://blog.sina.com.cn/s/blog_482dc6170101f6yc.html
”复制文中的代码，粘贴到空白区域；4、点击“F5”运行宏模块，进行密码破解，出现如下图，密码为图中的圈圈5、经过以上的步骤，此Excel的表格的密码已经自动除去
- 相关评论
- 我要评论
-