excel宏密碼破解方法

1、一、 Excel 工程不可查看”兩種實現(xiàn)方法及破解關(guān)于Excel宏編程中，要用到一些技巧，如破解 Excel宏加密。二、今天我對一個Excel宏編程中進行日期限制進行了破解。方法一（共用級鎖定）1、先對excel檔進行一般的vbaproject ”工程密碼保護。2、打開要保護的檔，選擇 ：工具- 保護- 保護并共用活頁簿- 以追蹤修訂方式共用- 輸入密碼- 保存檔。完成彳爰，當你打開“ vbaproject ”工程屬性時，就將會提示：工程不可看!方法二（推薦，破壞型鎖定）用16進制編輯工具，如winhex、ultraedit-32 （可到此下載）等，再歷害點的人完全可以用 debug命令來做用

2、以上軟體打開excel檔，查找定位以下地方 ：注：實際顯示不會全部為 0此時，你只要將其中的位元組隨便修改一下即可。保存再打開，就會發(fā)現(xiàn)大功告成！當然，在修改前最好做好你的文檔備份。至於恢復(fù)只要將改動過的地方還原即可（只要你記住了呵呵）十、破解方面，有網(wǎng)友說將CMG=DPB不口 GC后的=替換為.也可以的，我已測試過的確可以，這樣更省事點。1 用16進制編輯工具，如 winhex、ultraedit-32 打開X.xls文件，查找ID= ,或到文件尾查看，找到即可。改其中的任意一位，存盤就可達到目的，注意：留有備份文件I _ I 產(chǎn)# I1 JH一、檢視程式碼 復(fù)制以下代碼 !按F8執(zhí)行十四、

3、 Private Sub CommandButton1_Click（）十五、Worksheets。，這里為你要顯示的工作表名稱）.Visible = True十六、 End Sub十七、關(guān)于破解EXCELVBA工程密碼的方法，以下代碼非常有效，首先建一新EXCELS件,在工作表標簽處右點 檢視程式碼 復(fù)制以下代碼 按F8執(zhí)行 在彈出窗中選你要你破解工程密碼的EXCELS件 再按F5執(zhí)行即可.十八、 Private Sub VBAPassword（）十九、你要解保護的Excel文件路徑二十、 Filename = Application.GetOpenFilename(Excel 文件(*.xl

4、s & *.xla & *.xlt ) ,*.xls;*.xla;*.xlt,VBA破解)二 H、 If Dir(Filename) = Then二十二、MsgBox 沒找到相關(guān)文件，清重新設(shè)置。二十三、Exit Sub二十四、Else二十五、 FileCopy Filename, Filename & .bak備份文件。二十六、End If二十七、Dim GetData As String * 5二十八、Open Filename For Binary As #1二十九、Dim CMGs As Long I / / 工I 、三十、 Dim DPBo As Long r 一、 For i =

5、1 To LOF(1)三十二、Get #1, i, GetDataI IlJ1 J匚三十三、If GetData = CMG= Then CMGs = i,T ：, -/ I 三十四、If GetData = Host Then DPBo = i - 2: Exit For三十五、Next三十六、If CMGs = 0 Then111三十七、MsgBox 請先對VBA編碼設(shè)置一個保護密碼 ,32, 提示三十八、Exit Sub j 三十九、End If四十、If Protect =False Then四 H一、Dim St As String* 2四十二、Dim s20 As String *

6、 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五H一、加入不配對符號五十二、If (DPBo - CMGs)Mod 2 0 Then五十三、Put #1, DPBo + 1,s20五十四、End If五十五、MsgBox 文件解密成功 , 32,提示五十六、End If五十七、Close #1 I 5一 五十八、End Subr 五十九、

7、六十、 如果上面代碼不能運行或出錯，請用以下代碼重試.六H 、 /T ： -/ I ；六十二、Private Sub VBAPassword()了 ) :六十三、你要解保護的Excel文件路徑六十四、Filename = Application.GetOpenFilename(Excel 文件(*.xls & *.xla & *.xlt ) ,*.xls;*.xla;*.xlt,111VBA破解)六十五、If Dir(Filename) = Then j 六十六、MsgBox 沒找到相關(guān)文件，清重新設(shè)置。六十七、Exit Sub六十八、Else六十九、FileCopy Filename, Fi

8、lename & .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= ThenCMGs=i七十八、If GetData=Host Then DPBo = i- 2: Exit For七十九、Next八十、If CMGs =0Then提示八H一、MsgBox 請先對VBA編碼設(shè)置一個

9、保護密碼 ,32,八十二、Exit Sub八十三、End If八十四、八十五、Dim St As String *2八十六、Dim s20 AsString* 1八十七、取得一個0D0A十六進制字串“ i _ jr_-t *八十八、Get #1, CMGs - 2, St八十九、取得一個20十六制字串了 ) :九十、 Get #1, DPBo + 16, s20九H一、替換加密部份機碼.I 1九十二、For i = CMGs To DPBo Step 2九十三、Put #1, i, St:、 I J 九十四、Next九十五、加入不配對符號九十六、If (DPBo - CMGs)Mod 2 0

10、Then九十七、Put #1, DPBo + 1,s20九十八、End If九十九、MsgBox 文件解密成功 ,32, 提示百、 Close #1百一、 End Sub第二步：再點擊 宏查看宏”，選擇 宏名下的PasswordBreaker”并點擊 編輯“，打開Microsoft Visual Basic編輯器，用如下內(nèi)容替換右側(cè)窗口中的所有代碼：Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integ

11、er, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For

12、 n = 32 To 126ActiveSheet.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 ThenMsgBox 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.SelectRange(a1).FormulaR1C1 = Chr(i) &