01破解保護(hù)工作表密碼?
開啟工作表保護(hù)后可以防止別人修改數(shù)據(jù),用鼠標(biāo)雙擊保護(hù)過的表格會跳出彈窗禁止提示。?
如果又要破解,辦法如下:?
工作表標(biāo)簽頁點(diǎn)擊鼠標(biāo)右鍵,選擇[查看代碼],將下面的代碼復(fù)制到彈出的編輯界面:按照下方動(dòng)圖操作即可,非常簡易。
下方是需要你動(dòng)手復(fù)制的代碼,注意不要復(fù)制錯(cuò):
Sub?UnProtct()
????MsgBox?"破解提示:當(dāng)要求輸入密碼時(shí)請點(diǎn)擊取消!”"
????Application.DisplayAlerts?=?False
????On?Error?Resume?Next
????Dim?sht?As?Worksheet
????For?Each?sht?In?Worksheets
????????With?sht
????????????.Protect?DrawingObjects:=True,?Contents:=True,?Scenarios:=True,?AllowFiltering:=True,?AllowUsingPivotTables:=True
????????????.Protect?DrawingObjects:=False,?Contents:=True,?Scenarios:=False,?AllowFiltering:=True,?AllowUsingPivotTables:=True
????????????.Protect?DrawingObjects:=True,?Contents:=True,?Scenarios:=False,?AllowFiltering:=True,?AllowUsingPivotTables:=True
????????????.Protect?DrawingObjects:=False,?Contents:=True,?Scenarios:=True,?AllowFiltering:=True,?AllowUsingPivotTables:=True
????????????.Unprotect
????????End?With
????Next
????MsgBox?"ok"
End?Sub
復(fù)制進(jìn)去后點(diǎn)擊代碼窗口上方的三角形運(yùn)行代碼即可。??
現(xiàn)在您已經(jīng)學(xué)會了破解工作表密碼了,下面我們學(xué)習(xí)如何破解工作簿密碼。? ?
02破解保護(hù)工作簿密碼??
開啟保護(hù)工作簿之后可以防止其他用戶查看隱藏的工作表,添加、移動(dòng)或隱藏工作表以及重命名工作表。??
可以看到隱藏、重命名之類的按鈕都是灰色的。??
破解的方法如下:? 同樣是在工作表標(biāo)簽頁點(diǎn)擊鼠標(biāo)右鍵,選擇[查看代碼],在彈出的VBA編輯界面輸入以下代碼:步驟跟上面破解工作表一樣,大家將代碼復(fù)制粘貼到VBA編輯器即可。
Sub?test()
????ActiveWorkbook.Sheets.Copy
????For?Each?sh?In?ActiveWorkbook.Sheets
????????sh.Visible?=?True
????Next
End?Sub
點(diǎn)擊運(yùn)行后,我們的工作簿密碼保護(hù)已經(jīng)解除,在表格上接下來就可以做修改、刪除,新增等動(dòng)作了。?
總結(jié)下,本篇文章我們學(xué)到了破解工作表的密碼和工作簿保護(hù)密碼。這兩項(xiàng)保護(hù)同學(xué)們以后都可以解決了—-(但是如果你的工作簿打開密碼忘記了,那就不是我們上面的辦法可以破解的了,除了暴力軟件破解,基本沒有其他好的辦法)
