轉自：Excel之家ExcelHome
小伙伴們好啊，今天咱們說說如何破解工作簿保護和工作表保護的問題。
注意咱們說的工作簿保護，不是文檔的打開權限密碼，如果設置了文檔打開權限密碼，在高版本中破解的成功率是非常低的。
如果打開一個Excel文檔時，直接彈出這么個對話框，那就基本沒指望了，早點洗洗睡吧：
我說的工作簿保護是這里：
在這個地方設置工作簿保護后，將對工作表進行刪除、移動、新建、隱藏或者取消隱藏，以及工作表重命名等操作。
如果工作簿保護密碼忘記了怎么辦？
右鍵單擊工作表標簽→【查看代碼】，然后插入模塊，復制以下代碼，粘貼到代碼區域：
- 點擊運行按鈕，稍等片刻，就會出現一個去掉保護的工作簿克隆版，咱們只要按Ctrl+S鍵，將這個工作簿保存一下就好了。
Sub 工作簿密碼破解() ActiveWorkbook.Sheets.Copy For Each sh In ActiveWorkbook.Sheets sh.Visible = True NextEnd Su
接下來咱們再說說如何破解工作表保護。
有時我們為了防止別人修改工作表內容，會通過【審閱】→【保護工作表】來設置工作表的保護密碼。
如果不小心自己忘了密碼或者別人的文檔咱們沒有密碼，怎么辦呢?
只要參考前一個動畫中的步驟，右鍵單擊工作表標簽→【查看代碼】，然后插入模塊，復制以下代碼，粘貼到代碼區域，點一下運行按鈕就OK了：
Sub jp()Dim sht As WorksheetFor Each sht In Worksheetssht.Protect AllowFiltering:=Truesht.UnprotectNextEnd Sub
好了，今天咱們的內容就是這些吧，祝各位小伙伴一天好心情！
圖文作者：看見星光 老祝
