推 edrf6096700 : 特殊用途 讚 03/31 01:20
Excel加密工作表忘了密碼？幾行VBA代碼，不懂程式照樣解除工作表保護
網誌圖文版：
https://www.b88104069.com/archives/4466
商業機密考量，Excel可以加密上鎖活頁簿檔案﹐或者以工作表儲存格範圍加密保護，但
忘記密碼卻很麻煩，其實幾行VBA程式代碼可以輕鬆解除工作表密碼，本文以具體操作步
驟分享如何操作。
一、贊贊小屋的練習題檔案有工作表想取消群組，發現被保護住了，密碼和原本所設定的
不一樣，沒辦法編輯工作表。
二、滑鼠游標移到工作表標籤上，右鍵點選「檢視程式碼」這個快捷選項。
三、於Excel外掛的VBA編輯視窗中，貼上下列程式代碼：
Sub 解除工作表密碼()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True,
AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True,
AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
四、上方功能區「檢視」頁籤，將「巨集」程式集下拉，選擇「檢視巨集」。依照浮窗說
明可知其快捷鍵為「Alt+F8」。
五、「巨集」對話方塊會看到第三步驟所貼上的程式碼，在這裡呈現為「解除工作表密碼
」巨集，直接按「執行」。
六、執行後跳出「取消保護工作表」對話方塊，中間是輸入密碼欄位，不過這裡直接「取
消」即可。
七、雖然沒有輸入過正確密碼，工作表已解除保護，可以取消群組做任何編輯。
八、參考微軟Office產品支援中心關於Excel保護工作表的說明：「並非作為安全性功能
的用途。此功能只是用來防止使用者修改工作表內的鎖定儲存格。」
仔細分析VBA程式碼，它藉由工作表保護屬性的反覆設定將密碼清除，最後再解除保護，
因此巨集執行完要再確定取消保護，效果等同於把工作表保護更新為空白密碼。參考微軟
相關說明會更加清楚，此功能並非安全性等級的用途，也許因為如此可利用VBA執行繞過
Excel指令限制，在灰色地帶直接跳過密碼設定。
延伸閱讀：
Excel折線圖貼上圓形標籤，簡報圖表力，鈊象(3293)營收統計圖更加視覺化
https://www.b88104069.com/archives/4462
Excel巨集抓取網頁資料出錯了！進入VBA簡單修改，開始成為程式設計師
https://www.b88104069.com/archives/4432
打開Excel開發人員面板，錄製巨集維護快速鍵，開始VBA程式抓網頁資料
https://www.b88104069.com/archives/4425
--
周末，我們繼續Excel：精華區=>21.心得=>5.其他=>3.office
會計人的Excel小教室： https://www.facebook.com/acctexcel
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.22.232.17 (中國)
※ 文章網址: https://www.ptt.cc/bbs/Accounting/M.1584858483.A.291.html