Excel破解宏代码.doc

Excel破解宏代码 Excel工作表保护密码破解方法: 1打开文件 2工具-宏-录制新宏-输入名字如:aa 3停止录制(这样得到一个空宏)4工具-宏-宏,选aa,点编辑按钮 5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6关闭编辑窗口7工具-宏-宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,密码完全被你看见了!内容如下: Public Sub AllInternalPasswords() Breaks worksheet andworkbook structure passwords. Bob McCormick probably originator of basecode algorithm modified for coverage of workbook structure / windowspasswords and for multiple passwords Norman Harker and JE McGimpsey27-Dec-2002 (Version 1.1) Modified 2003-Apr-04 by JEM: All msgs toconstants, and eliminate one Exit Sub (Version 1.1.1) Reveals hashedpasswords 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 JEMcGimpsey Const HEADER As String = AllInternalPasswords User MessageConst VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04Const REPBACK As String = DBLSPACE & Please report failure & _to the gramming newsgroup. Const ALLCLEAR AsString = DBLSPACE & The workbook should & _ now be free of allpassword protection, so make sure you: & _ DBLSPACE & SAVE ITNOW! & DBLSPACE & and also & _ DBLSPACE & BACKUP!,BACKUP!, BACKUP! & _ DBLSPACE & Also, remember that thepassword was & _ put there for a reason. Dont stuff up crucialformulas & _ or data. & DBLSPACE & Access and use of somedata & _ may be an offense. If in doubt, dont. ConstMSGNOPWORDS1 As String = There were no passwords on & _ sheets, orworkbook structure or windows. & AUTHORS & VERSION ConstMSGNOPWORDS2 As String = There was no protection to & _ workbookstructure or windows. & DBLSPACE & _ Proceeding to unprotectsheets. & AUTHORS & VERSION Const MSGTAKETIME As String = Afterpressing OK button this & _ will take some time. & DBLSPACE& Amount of time & _ depends on how many different passwords,the & _ passwords, and your computers specification. & DBLSPACE& _ Just be patient! Make me a coffee! & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = You had a Worksheet & _Structure or Windows Password set. & DBLSPACE & _ Thepassword found was: & DBLSPACE & $ & DBLSPACE & _ Noteit down for potential future use in other workbooks by & _ the sameperson who set this password. & DBLSPACE & _ Now to check andclear other passwords. & AUTHORS & VERSION Const MSGPWORDFOUND2 AsString = You had a Worksheet & _ password set. & DBLSPACE &The password found was: & _ DBLSPACE & $ & DBLSPACE &Note it down for potential & _ future use in other workbooks by sameperson who & _ set this password. & DBLSPACE & Now to checkand clear & _ other passwords. & AUTHORS & VERSION ConstMSGONLYONE As String = Only structure / windows & _ protected withthe password that was just found. & _ ALLCLEAR & AUTHORS &VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i AsInteger, j As Integer, k As Integer, l As Integer Dim m As Integer, n AsInteger, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean,WinTag As BooleanApplication.ScreenUpdating = False With ActiveWorkbook WinTag =.ProtectStructure Or .ProtectWindows End With ShTag = False For Eachw1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If NotShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADERExit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If NotWinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On ErrorResume 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 ThenPWord1 = 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.nextsEnd If End With Next: Next: Next: Next: Next: Next Next: Next:Next: Next: Next: Next Loop Until True On Error GoTo 0 End If IfWinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER ExitSub End If On Error Resume Next For Each w1 In WorksheetsAttempt clearance with PWord1 w1.Unprotect PWord1 Next w1 OnError GoTo 0 ShTag = False For Each w1 In Worksheets Checks for allclear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContentsNext 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 To66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .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 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) MsgBoxApplication.Substitute(MSGPWORDFOUND2, _ $, PWord1), vbInformation,HEADER leverage finding Pword by trying on other sheets For Each w2 InWorksheets w2.Unprotect PWord1 Next w2 Exit Do Bypass allfor.nexts End If Next: Next: Next: Next: Next: Next Next: Next:Next: Next: Next: Next Loop Until True On Error GoTo 0 End IfEnd With Next w1 End If MsgBox ALLCLEAR & AUTHORS &VERSION & REPBACK, vbInformation, HEADER End SubEXCEL工程密破解,以下方法十分有效的帮你打开VBA工程密码保护的工程,教你破解VBA工程密码,解除VBA工程密码保护下的EXCEL文档,破解EXCEL原来如此简单.-在办公中我们常看到许多用宏(VBA)编写的EXCEL表格,而这些表格就如同一个数据库,我们可以选取或查询很多的数据,一般的这些数据是存放在一个隐藏的工作表中的,那么要如何显示这个隐藏的工作表呢?我们可以打开宏编辑器(ALT+F11),再安CTRL+R打开专案,这时弹出窗会有所有的这个EXCEL的工用表,这时你就可以看看那些是被隐藏的了,很多时候打开是需要密码的,用以下方法解密后,再将解密后文件打开,依同样方法在工作表标签中右键>>检视程式码>>复制以下代码>>按F8执行Private Sub CommandButton1_Click()Worksheets(这里为你要显示的工作表名称).Visible = TrueEnd Sub关于破解EXCELVBA工程密码的方法,以下代码非常有效,首先建一新EXCEL文件,在工作表标签处右点>>检视程式码>>复制以下代码>>按F8执行 在弹出窗中选你要你破解工程密码的EXCEL文件 >>再按F5执行即可.Private Sub VBAPassword()你要解保护的Exce