工作中,為了防止別人隨意修改自己的模板,我們經(jīng)常采用工作表保護,將重要的公式和區(qū)域進行鎖定,只允許別人編輯特定得區(qū)域,同時進行密碼保護,防止別人修改,但同時也會給自己挖一個坑,如果密碼忘了怎么辦?
第一:窮舉法
將自己用過的密碼,包括但不限于生日,工號,銀行卡密碼等等,統(tǒng)統(tǒng)試一遍,運氣好的話,可能能找到。
第二:破解軟件
從網(wǎng)上下載專門的破解軟件,但有可能帶來一大堆廣告或病毒。
第三:找老崔,教你一招破解工作表保護密碼
打開設置工作表保護的工作薄,選擇有密碼保護的工作表,如Sheet1,右鍵\查看代碼
彈出VBA 窗口
將下列代碼復制到代碼窗口,按F5運行,即可解除密碼
Sub 破解()
ActiveSheet.Protect AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
如果此工作薄的每個工作表都設有工作表保護,可以稍微修改一下程序,加一個循環(huán)就可以了!
Sub 破解增強版()
dim ws as worksheet
For Each ws In Worksheets
With ws
.Protect AllowFiltering:=True
.Unprotect
End With
Next
End Sub
是不是很簡單,夠暴力吧,你問我密碼是多少?我也不知道,反正密碼已經(jīng)沒有了。
此方法僅限于工作表保護,如果設置了工作薄保護,此程序不使用,另有它法
請尊重別人的設置,因為只有規(guī)范的輸入,才能保證有效的數(shù)據(jù)處理
不可用于非法之目的。
如果你覺得有用,請轉(zhuǎn)發(fā)朋友圈,明天我將繼續(xù)講解工作薄保護的破解。
END
聯(lián)系客服