Excel 工作表密碼保護破解法 - part2

Excel 工作表密碼保護破解法 - part2

睽違多年，再發一篇。
故事經過是這樣子....遇到一Excel檔，內有3個工作表，但保護活頁簿多達5個。
用了多年前發的文來解(Excel 2003 2007 工作表密碼保護破解法)，結果跑到Excel沒回應，當住了。無解！好瞎~~~

所以再找另一解法如下：

VBA跳過保護密碼
在受保護的工作表標籤中，右鍵，選單中選擇"檢視程式碼"

在VBA編輯器中，貼上如下編碼：

----------------------------
Sub 破解()

ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

------------------------------

執行該編碼即可破解保護密碼。（記得儲存）

ps:這篇是用Excel 2016來解的。