office 2003/2007 自動破解excel寫保護

Excel表格密碼保護的解除方法
關鍵字：office2003 office2007 宏 密碼保護

表格受密碼保護時，咱們修改數據Excel彈出「您試圖更改的單元格或圖表受保護，於是是隻讀的。若要修改受保護單元格或圖表，請先使用‘撤消工做表保 護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。這時候咱們能夠用VBA宏代碼破解法來破解表格保護密碼：

 

第一步：

Office2003打開該文件，先解除默認的「宏禁用」狀態，方法是點擊工具欄下的「選項」狀態按鈕，打開「Microsoft Office安全選項」窗口，選擇其中的「啓用此內容」，「肯定」。再切換到「視圖」選項卡，點擊「宏」→「錄製宏」，出現「錄製新宏」窗口，在「宏名」 定義一個名稱爲：PasswordBreaker，點擊「肯定」退出；

Office2007默認是不顯示開發工具欄的，在excel窗口最頂端右鍵點擊「custome quick access tool<自定義快捷工具欄>」---》在新窗口中點擊「Popular<經常使用>」---》選擇右側的「show developer tab in the ribbon」,肯定；在新出現的developer工具欄，點擊「macro security 」,而後選擇新窗體中的「enable all macros (not recommands...)」

第二步：再點擊「宏」→「查看宏」，選擇「宏名」下的 「PasswordBreaker」並點擊「編輯」，打開「Microsoft Visual 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」並點擊「執行」，密碼就現形了
第四步：點擊「撤消工做表保護」，而後輸入密碼便可解除鎖定；
測試結果，密碼破解可用，可是很暈的是破解的密碼跟原來的密碼有很大的差距，想不明白了，反正能用就好。