導讀轉自：EXCEL之家ExcelHome小伙伴們好啊，今天咱們說說如何破解工作簿保護和工作表保護的問題。注意咱們說的工作簿保護，不是文檔的打開權限密碼，如果設....

轉自：EXCEL之家ExcelHome

小伙伴們好啊，今天咱們說說如何破解工作簿保護和工作表保護的問題。

注意咱們說的工作簿保護，不是文檔的打開權限密碼，如果設置了文檔打開權限密碼，在高版本中破解的成功率是非常低的。

如果打開一個Excel文檔時，直接彈出這么個對話框，那就基本沒指望了，早點洗洗睡吧：

我說的工作簿保護是這里：

在這個地方設置工作簿保護后，將對工作表進行刪除、移動、新建、隱藏或者取消隱藏，以及工作表重命名等操作。

如果工作簿保護密碼忘記了怎么辦？

右鍵單擊工作表標簽→【查看代碼】，然后插入模塊，復制以下代碼，粘貼到代碼區域：

• 點擊運行按鈕，稍等片刻，就會出現一個去掉保護的工作簿克隆版，咱們只要按Ctrl S鍵，將這個工作簿保存一下就好了。

Sub 工作簿密碼破解() ActiveWorkbook.Sheets.Copy For Each sh In ActiveWorkbook.Sheets sh.Visible = True NextEnd Su

接下來咱們再說說如何破解工作表保護。

有時我們為了防止別人修改工作表內容，會通過【審閱】→【保護工作表】來設置工作表的保護密碼。

如果不小心自己忘了密碼或者別人的文檔咱們沒有密碼，怎么辦呢?

只要參考前一個動畫中的步驟，右鍵單擊工作表標簽→【查看代碼】，然后插入模塊，復制以下代碼，粘貼到代碼區域，點一下運行按鈕就OK了：

Subjp()DimshtAsWorksheetForEachshtInWorksheetssht.ProtectAllowFiltering:=Truesht.UnprotectNextEndSub

好了，今天咱們的內容就是這些吧，祝各位小伙伴一天好心情！

圖文作者：看見星光 老祝