Excel表格密碼保護的解除方法
關鍵字：office2003 office2007 宏 密碼保護
表格受密碼保護時，咱們修改數據Excel彈出「您試圖更改的單元格或圖表受保護，於是是隻讀的。若要修改受保護單元格或圖表，請先使用‘撤消工做表保 護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。這時候咱們能夠用VBA宏代碼破解法來破解表格保護密碼：安全
第一步：編輯器
Office2003打開該文件，先解除默認的「宏禁用」狀態，方法是點擊工具欄下的「選項」狀態按鈕，打開「Microsoft Office安全選項」窗口，選擇其中的「啓用此內容」，「肯定」。再切換到「視圖」選項卡，點擊「宏」→「錄製宏」，出現「錄製新宏」窗口，在「宏名」 定義一個名稱爲：PasswordBreaker，點擊「肯定」退出；ide
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」並點擊「執行」，密碼就現形了
第四步：點擊「撤消工做表保護」，而後輸入密碼便可解除鎖定；
測試結果，密碼破解可用，可是很暈的是破解的密碼跟原來的密碼有很大的差距，想不明白了，反正能用就好。測試