Excel 教學 E14 | 鎖定/保護/隱藏儲存格的值/一鍵保護所有工作表，一次通通彙整來分享

[@leoso5473]

老師你好，我由於看見你這課題很有趣，因此我根據你課題內容，寫了一段改良版本的VBA 代碼，能夠按下執行後，直接要求填入密碼及出現顯示是否取消鎖定選取儲存格的訊息選項(預設為不取消，但可選取消)，也寫了取消保護時，出現查詢填入密碼的訊息欄位。 謝謝提供課題，使我學習了，也想分享給大家 。 老師如我有冒犯，請刪除我的留言。 Sub 批量保護() '一次保護全部工作表 Dim Pw As String Dim YN As Byte Dim Sht As Worksheet Pw = Application.InputBox("請轉入密碼", "轉入保護所有工作表", , , , , , 3) YN = MsgBox("取消鎖定選取儲存格", vbYesNo + vbQuestion + vbDefaultButton2, "鎖定選取儲存格") For Each Sht In Sheets With Sht If YN = vbYes Then .Protect Pw .EnableSelection = xlUnlockedCells Else .Protect Pw .EnableSelection = xlNoRestrictions End If End With Next End Sub Sub 批量保護解除() '一次開鎖全部工作表 Dim Pw As String Dim Sht As Worksheet Pw = Application.InputBox("請轉入密碼", "取消保護所有工作表", , , , , , 3) On Error GoTo Cancel For Each Sht In Sheets Sht.Unprotect Pw Next Exit Sub Cancel: mbox = MsgBox("輸入密碼錯誤", vbOKOnly + vbInformation, "錯誤") End Sub

[@meiko1]

當然不會冒犯囉，我的頻道真的很希望大家都能夠互相分享，互相學習，真的很感謝你的提供，讓這個範例可以更優化，我把你的留言置頂，讓有需要的人可以學習唷~😁😁😁

[@leedenny4370]

謝謝老師，剛好有需要傳Excel給客戶的需求，一鍵鎖定真的太棒了

[@meiko1]

很開心影片有幫助到你

[@mk81010150]

謝謝老師用心做片,感謝,萬分支持

[@meiko1]

謝謝你的萬分支持唷，有你們的支持，我會更積極製作教學影片的。

[@mikachang7452]

謝謝這麼詳細的教學!想請問使用「一鍵鎖定工作表」時，「未鎖定的欄位」是僅僅可輸入內容，但若想進一步允許「未鎖定的欄位」是可修改格式(ex:改字的顏色、大小或允許欄位內插入圖片)，又要保留可同時一鍵鎖定，請問有方法嗎?(因為目前只會一張一張單獨設定) 感謝!

[@w888w]

純補課

[@meiko1]

恩恩，歡迎

[@00013jason]

巨集功能太好用了!!

[@meiko1]

真的，可以簡化很多的步驟，提升效率唷

[@RachelCheong-e6t]

老師你好, 剛好有這個需要, 看了你的影片很受用。想請問一下巨集選了"個人巨集活頁簿", 我把這個Excel 分享給同事們使用時, 他們卻用不了設定的巨集~ 想其他人也用到的話, 我是不是應該選擇"現用活頁簿"? 謝謝老師解答~

[@RachelCheong-e6t]

我試過選擇"現用活頁簿", 它就要我把檔案儲存為xlsm., 然後每次關掉再打開時那個巨集就變成untrusted, 沒辦法把檔案變成trusted, 同事也是一樣看不到按鈕。我該怎麼處理?

[@meiko1]

@user-rm8df7mr5i 你的按鈕是放在工具列上還是畫出一個矩形按鈕放在儲存格上面呢？要分享出去的檔案，巨集需要存在「現用活頁簿」上，用插入按鈕（放在儲存格上）指定巨集後再分享喔

[@RachelCheong-e6t]

@@meiko1 明白了, 謝謝老師的指導, 我嘗試一下。

[@BOAF9964007]

老師 你好 ,請問一鍵保護所有工作表,我把檔案複製給其他人編輯後 他的檔案沒有設計的一鍵保護按鈕, 請問是哪邊錯誤呢? 感謝老師影片受益很多

[@meiko1]

那是因為錄製巨集，把巨集存放在個人活頁簿，如果要跟著檔案走，就得把巨集存在【現用活頁簿】

[@tinachen409]

謝謝老師的教學清楚易懂，老師可否教LAMBDA函數呢?聽說這個函數很強大,想學習

[@meiko1]

非常感謝您的回饋，也謝謝您的建議，我把他keep下來，再找機會分享唷

[@輪胎大師]

請問保護工作表一建保護可以自行設定可以1.儲存格格式2.序排3.自動篩選4.使用區扭分析表5.編輯物件嗎?

[@meiko1]

你的這些問題，或許可以到ChatGPT試試看唷，可以參考E81影片~

[@Joyce-z9c]

請問全部一起解鎖，可以指定幾個頁面解鎖就好嗎？

[@meiko1]

用VBA應該會比較快唷~可以轉往【吳老師的教學部落】問問看唷~

[@jerry-go6ok]

請問老師，受保護的工作表內，若有交叉分析篩選器，無法點選其按鈕，請問如何排除篩選器的保護，謝謝老師

[@meiko1]

@ jerry1844李凱霖 寫了一篇文章，分享給你參考 vocus.cc/article/644f8c96fd897800017fe95e

[@jerry-go6ok]

@@meiko1 謝謝老師

[@LitchiChang]

老師您好,請問如何將儲存格中的公式隱藏,但使用這還是可以看到計算出的數值?謝謝您

[@meiko1]

Ctrl+1>保護標籤>打勾鎖定與隱藏>再進行校閱>保護工作表即可

[@漢-i4r]

老師vba要怎麼寫只解除單一個工作表，或其中幾個就好，工作中只需要解其中幾個，鎖上去也只鎖特定幾個工作表。謝謝

[@waya9859]

請問老師 有沒有取消單一張保護表的語法 我想製作快捷鍵 不用每張表再輸入密碼

[@meiko1]

你可以錄製巨集試試看唷，錄製時指定快速鍵

[@yh56788]

謝謝老師教學,並請教老師.一鍵保護及解除,老師雖有輸入密碼0000,但按鈕過程沒有要求輸入密碼也失去保護的意義,什麼方式可克服!

[@meiko1]

疑，密碼0000是你可以改變的呀，使用程式驅動就不用再輸入啦

[@XZ_Xia_Bibi]

当然是可以克服的，使用VBA程序就可以满足你的需求。可以把密码做成动态获取的，那么相对于使用者来说就更人性简便。可以用inputbox函数弹出对话框来输入你想要的密码，还可以用单元格，控件，也可以是窗体，同时也可以以文件流TXT、XML、ini配置文件，数据库的形式来储存你的密码等等，方法很多，甚至还可以用MD5来加密🔐都没问题。不过Office的密码，除了07版以上开启加密密码外，其它任何密码都形同虚设。

[@irischui5946]

謝謝老師的教學，但若果在被保護的表格內有未鎖定儲存格供其他人編輯，要如何排序？

[@meiko1]

疑，這份範例內應該有提到呀

[@elantra_0528]

請問如何在Iphone上解鎖/上鎖受保護的分頁?

[@nickicheung8173]

求助老師，為什麼我作批量解鎖是會顯示 「執行階段錯誤‘1004’，密碼不符。是不是有需要注意的地方我做漏了？

[@meiko1]

用巨集錄製一個動作錯誤，可能就會影響執行，建議再依影片錄製一次看看，如果還是錯誤，可以到【吳老師部落格】看看有沒有類似的VBA教學唷。

[@linedaniel4125]

老師想請問一下如果縱向/橫向皆有隱藏欄位，複製資料皆有跨越隱藏欄位部分，需要從A表格複製資料到B表格(表格格式一樣)，目前使用2007版本可以選擇性貼上，2016版本(工作地點電腦)無法，會跳出此動作無法在多個選取範圍執行，這有什麼辦法解決問題嗎

[@meiko1]

我用365測試，沒有跳出錯誤訊息耶，你方便把你的資料留下部分內容讓我測試一下，並告訴我你的選取方式，我試試看我有沒有比較好的處理作法唷~[e-mail]

[@shiu0912]

謝謝老師教學的非常清楚！請問老師有打算教VBA嗎？我願意付費學習

[@meiko1]

哇，真感謝你~ 不過VBA我推薦你跟智揚老師學，我們是前同事，他對我而言是Excel之神~你可以在網頁搜尋他[陳智揚]老師

[@shiu0912]

@@meiko1 謝謝老師的推薦😊

[@frankyang5857]

老師，您好！ 求救！ 我照您的一鍵保護所有工作表的步驟去做，VBA出現錯誤後，想直接刪除巨集，要怎麼做呢？

[@meiko1]

alt+F11 開啟VBA後，把不要的模組，右鍵，移除試試看

[@frankyang5857]

@@meiko1 我只看到Module1，請問這個可以刪除嗎？

[@meiko1]

就是這個喔，可以刪除

[@frankyang5857]

@@meiko1 謝謝老師

[@alicechiu17]

老師您好～請問我的部分儲存格點下去是空白，但公式的地方有文字或數字的；照著影片檢查了儲存格的格式不為 ;;; 也沒有隱藏、字體有顏色，但儲存格還是沒有顯示該內容，請問要怎麼讓儲存格恢復顯示內容呢？

[@meiko1]

有沒有可能是設定了格式化條件，常用，條件式格式打開來看看👀

[@alicechiu17]

@@meiko1 老師太厲害了～清除整張工作表的規則就恢復內容了！謝謝老師

[@meiko1]

太棒了😆

[@BoboMediaBook]

老師請問如何批量的工作表進行部分範圍保護？

[@meiko1]

請問每一張工作表保護的範圍是一樣的嗎?

[@BoboMediaBook]

@@meiko1對的老師，每張工作表都是一樣要鎖定特定的儲存格呢

[@adato1123aa]

這個Excel是那款2021/365?

[@meiko1]

365版本，但此影片應該適用於大部分版本喔

[@nickicheung8173]

密碼已經是在英文輸入的狀態下設的，而且我手動取消保護時密碼是對的

[@maggiekao4464]

老師請問正數與零值 都用0表示 系統要怎麼知道現在是要求正數還是零值未XX色呢? 還是第一個擺的必定是正數? 謝謝

[@meiko1]

有幾種用法，用法1：正數;負數;零值、用法2：[條件1]格式;[條件2]格式;[剩下的]格式 以上用法給你參考喔

[@maggiekao4464]

@@meiko1 請問在方法2上 格式都用0系統如何知道是正數還是0本身？

[@meiko1]

方法2的條件可以這樣打，[紅色][>=60]0;[藍色][=60給紅色，條件2：負數給藍色，剩下的就會是綠色的處理方式，供你參考喔

[@maggiekao4464]

@@meiko1 謝謝老師說明 很清楚!

[@ryanyang2486]

关于允许部分编辑的工作表保护，通过勾选锁定或不勾选锁定，我觉得比较复杂，逻辑上老觉得别扭，我一直认为这是翻译的错误或者是一个bug。对于允许部分编辑，我一般是选取允许编辑的部分，然后在工具栏点击允许编辑，然后再保护工作表，这样就不用来回对锁定进行勾选或取消勾选。想和老师探讨一下，这样会有什么我没发现的漏洞吗？

[@meiko1]

還是有差的唷 透過允許編輯的範圍，這些範圍還是鎖定的狀態，你在保護時，得勾選允許選取鎖定的範圍，才能生效。 而且其他不允許的範圍，也可以被選取，如果透過數值格式內的保護進行鎖定與不鎖定的選擇，彈性是會再大一點的。

[@ryanyang2486]

@@meiko1 好的，谢谢了，我再研究一下。

[@imanguschou]

請教老師，如果我工作表內包含一個一般表格跟一個樞紐分析表，當進行工作表保護時，樞紐分析表就無法進行「重新整理」的動作…請問有什麼方法可以解決嗎？（不要告訴我樞紐表獨立放然後不要設定保護就好 哈哈哈😆）

[@meiko1]

你的樞紐分析表資料範圍把鎖定拿掉試試看 選取樞紐分析表範圍，儲存格格式\保護\鎖定，勾勾拿掉再進行保護試試看

[@imanguschou]

@@meiko1 沒想到老師這麼快回 謝謝，您說的方法我有試過 好像還是不行，因為我資料來源是變動的，所以每次樞紐表的範圍也會有所變動..所以無法確定每次樞紐表的範圍

[@imanguschou]

我也試過 保護前把允許使用者編輯的部分 核選 樞紐分析表 結果也是不行

[@imanguschou]

@@meiko1 報告老師 我剛剛用固定範圍的樞紐表測試此方法，很不幸的也是不行..麻煩🤣

[@meiko1]

這樣呀，我找時間測試看看，再跟你說唷

[@李先生-v9i2w]

老師我的按了；再按隱藏還是看的到儲存格內的文字

[@meiko1]

每個步驟有確實做到嗎?

[@chwang6380]

兩個分號＂;;" 只能隱藏"數字", 三個分號";;;" 就能隱藏"文字"及"數字"

[@林稚甄]

老師請問在巨集功能裡要如何copy語法，謝謝

[@meiko1]

ALT+F11 打開VBA編輯器，找到相對檔案的模組，就可以複製囉

[@林稚甄]

@@meiko1 謝謝你

[@林稚甄]

老師 再請問你我按照影片的步驟，在你停止錄製巨集並縮小excel,再桌面複製時，按ALT+F11 ，但我找不到要複製的內容無法做拷貝，我是那裡步驟錯了，謝謝妳

[@meiko1]

你說VBA程式碼嗎?如果是，在影片下方資訊說明欄內有唷

[@money885]

工作簿和工作簿的輪播

[@youru2110]

我沒有下面的工作列 上面也沒有

[@meiko1]

工具是要自己自訂的唷，要自己自訂的唷，您看這篇是否有符合你的需求喔 kzbin.info/www/bejne/r3ywk4OXZdR8qJo