現在的互聯網信息時代,人們對信息安全比較敏感,也比較重視,确實,哪個人都不希望自己辛辛苦苦勞動得來的東西就這樣被别人竊取了。我們在日常的生活、工作中經常遇到Excel文件加密了,此時工作表就不能編輯修改,隻能進行簡單的複制操作,這時候我們最希望的就是能夠将密碼進行破解!
excel工作表密碼破解的方法大緻有以下三種:
VBA代碼破解;
将文件後綴名修改為RAR壓縮文件後打開相關文件将加密代碼删除;
下載現成的插件。
在演示這三種解密方法之前,我們先對Excel文件進行加密,以便後面的操作演示:
對身份證校驗工作表進行加密
下面依次演示如何使用這三種方法進行破解Excel文件的密碼。
方法一:VBA代碼破解右鍵單擊身份證校驗工作表,單擊查看代碼,如下圖所示:
然後粘貼以下VBA代碼,在點擊運行(F5),大功告成!
Sub 密碼破解()
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
其實代碼還不止這個
方法二:将文件後綴名修改為RAR壓縮文件後打開相關文件将加密代碼删除進行破解
Sub RemoveShProtect()
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim i7 As Integer, i8 As Integer, i9 As Integer
Dim i10 As Integer, i11 As Integer, i12 As Integer
Dim t As String
On Error Resume Next
If ActiveSheet.ProtectContents = False Then
MsgBox "該工作表沒有保護密碼!"
Exit Sub
End If
t = Timer
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 i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
& Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
If ActiveSheet.ProtectContents = False Then
MsgBox "解除工作表保護!用時" & Format(Timer - t, "0.00") & "秒"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
1、我們關閉工作簿,将此工作簿重命名修改文件後綴名為“rar”
2、雙擊打開rar文件,找到"sheet1.xml",文件路徑為“xl>>worksheets>>sheet1.xml”,因為身份證驗證工作表是第一個工作表,所以選擇sheet1.xml,要是第二個工作表加密就選擇sheet2.xml,兩個都加的話就兩個文件都修改。
3、雙擊"sheet1.xml"并用記事本打開,使用查找功能,删除“sheetProtection”字段(<>尖括号内的内容 )
4、将文件後綴名更改回"xlsx",大功告成!
方法三:利用插件進行破解
前面兩種方法都比較繁瑣,直接使用現成的插件可以随時使用!
之前在excelhome論壇上下載了一位版主的插件,裡面就有破解excel密碼的功能,而且功能還很強大(幾乎你能想到的都有了),該插件時免費的,具體演示如下:
點擊插件如圖所示的工作表保護與破解按鈕
詳細參數選擇演示
它的功能還不止于此,大家學習。
最好,大家需要插件的話可以自行到excel home論壇搜索,也可以私信我索要,後台回複“常用工具插件”即可自動獲取下載鍊接。
關于插件的使用方法:下載解壓之後是一個xlam文件,直接雙擊即可使用。
還有另一種方法:
,
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!