前段時間,一個朋友從政府部門相關網站下載一個申請的表格,想貼照片時卻一直無法粘貼,後來才發現原來是在工作表保護,避免大家都隨便改,把格式搞亂了。如果沒有密碼,直接工具-保護-撤消工作表保護就可以了。如果有密碼就比較麻煩,需要宏才能破解。過程如下:
1、打開文件;
2、工具-宏-錄製新宏-輸入名字,如hong-確定。
3、停止錄製(這樣得到一個空宏)
4、工具---宏----宏,選hong,點編輯按鈕
5、刪除窗口中的所有字符(只有幾個),替換爲下面的內容:(完整複製下來即可)
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
6、關閉編輯窗口
7、工具---宏-----宏,選AllInternalPasswords,運行,等幾分鐘分鐘就OK,沒有密碼了!!
此宏已經本人親自測試,確認可行。具體破解等待時間根據實際機器配置定。
另網上還有一種方法:
就是新建一個工作簿,把有保護的工作表全部複製到新工作簿的新工作表上,工作表保護自動去掉。但是實際測試下來,這種方法不可行。
再說說工作簿加密後的破解:
目前我不知道用什麼像上文中提到的使用宏來破解的方法,但是市場上關於EXCEL工作簿密碼破解的軟件有很多。我使用的比較好用的破解軟件就是office password remover,很簡單地,就是把需要解密的文件打開,再破解就可行了。
EXCEL工作簿加密的方法如下:工具-選項-安全性-設置打開權限或是修改權限就可以了。
EXCEL工作表保護的方法如下:工具-保護-保護工作表還是工作簿就行。