老師你好，我由於看見你這課題很有趣，因此我根據你課題內容，寫了一段改良版本的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
老師你好，我由於看見你這課題很有趣，因此我根據你課題內容，寫了一段改良版本的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
當然不會冒犯囉，我的頻道真的很希望大家都能夠互相分享，互相學習，真的很感謝你的提供，讓這個範例可以更優化，我把你的留言置頂，讓有需要的人可以學習唷~😁😁😁
謝謝老師，剛好有需要傳Excel給客戶的需求，一鍵鎖定真的太棒了
很開心影片有幫助到你
謝謝老師用心做片,感謝,萬分支持
謝謝你的萬分支持唷，有你們的支持，我會更積極製作教學影片的。
純補課
恩恩，歡迎
謝謝這麼詳細的教學!想請問使用「一鍵鎖定工作表」時，「未鎖定的欄位」是僅僅可輸入內容，但若想進一步允許「未鎖定的欄位」是可修改格式(ex:改字的顏色、大小或允許欄位內插入圖片)，又要保留可同時一鍵鎖定，請問有方法嗎?(因為目前只會一張一張單獨設定) 感謝!
巨集功能太好用了!!
真的，可以簡化很多的步驟，提升效率唷
老師 你好 ,請問一鍵保護所有工作表,我把檔案複製給其他人編輯後 他的檔案沒有設計的一鍵保護按鈕, 請問是哪邊錯誤呢? 感謝老師影片受益很多
那是因為錄製巨集，把巨集存放在個人活頁簿，如果要跟著檔案走，就得把巨集存在【現用活頁簿】
老師你好, 剛好有這個需要, 看了你的影片很受用。想請問一下巨集選了"個人巨集活頁簿", 我把這個Excel 分享給同事們使用時, 他們卻用不了設定的巨集~ 想其他人也用到的話, 我是不是應該選擇"現用活頁簿"? 謝謝老師解答~
我試過選擇"現用活頁簿", 它就要我把檔案儲存為xlsm., 然後每次關掉再打開時那個巨集就變成untrusted, 沒辦法把檔案變成trusted, 同事也是一樣看不到按鈕。我該怎麼處理?
@user-rm8df7mr5i 你的按鈕是放在工具列上還是畫出一個矩形按鈕放在儲存格上面呢？要分享出去的檔案，巨集需要存在「現用活頁簿」上，用插入按鈕（放在儲存格上）指定巨集後再分享喔
@@meiko1 明白了, 謝謝老師的指導, 我嘗試一下。
謝謝老師的教學清楚易懂，老師可否教LAMBDA函數呢?聽說這個函數很強大,想學習
非常感謝您的回饋，也謝謝您的建議，我把他keep下來，再找機會分享唷
請問老師 有沒有取消單一張保護表的語法 我想製作快捷鍵 不用每張表再輸入密碼
你可以錄製巨集試試看唷，錄製時指定快速鍵
老師您好,請問如何將儲存格中的公式隱藏,但使用這還是可以看到計算出的數值?謝謝您
Ctrl+1>保護標籤>打勾鎖定與隱藏>再進行校閱>保護工作表即可
請問老師，受保護的工作表內，若有交叉分析篩選器，無法點選其按鈕，請問如何排除篩選器的保護，謝謝老師
@
jerry1844李凱霖 寫了一篇文章，分享給你參考 vocus.cc/article/644f8c96fd897800017fe95e
@@meiko1 謝謝老師
請問全部一起解鎖，可以指定幾個頁面解鎖就好嗎？
用VBA應該會比較快唷~可以轉往【吳老師的教學部落】問問看唷~
謝謝老師的教學，但若果在被保護的表格內有未鎖定儲存格供其他人編輯，要如何排序？
疑，這份範例內應該有提到呀
老師vba要怎麼寫只解除單一個工作表，或其中幾個就好，工作中只需要解其中幾個，鎖上去也只鎖特定幾個工作表。謝謝
謝謝老師教學,並請教老師.一鍵保護及解除,老師雖有輸入密碼0000,但按鈕過程沒有要求輸入密碼也失去保護的意義,什麼方式可克服!
疑，密碼0000是你可以改變的呀，使用程式驅動就不用再輸入啦
当然是可以克服的，使用VBA程序就可以满足你的需求。可以把密码做成动态获取的，那么相对于使用者来说就更人性简便。可以用inputbox函数弹出对话框来输入你想要的密码，还可以用单元格，控件，也可以是窗体，同时也可以以文件流TXT、XML、ini配置文件，数据库的形式来储存你的密码等等，方法很多，甚至还可以用MD5来加密🔐都没问题。不过Office的密码，除了07版以上开启加密密码外，其它任何密码都形同虚设。
老師想請問一下如果縱向/橫向皆有隱藏欄位，複製資料皆有跨越隱藏欄位部分，需要從A表格複製資料到B表格(表格格式一樣)，目前使用2007版本可以選擇性貼上，2016版本(工作地點電腦)無法，會跳出此動作無法在多個選取範圍執行，這有什麼辦法解決問題嗎
我用365測試，沒有跳出錯誤訊息耶，你方便把你的資料留下部分內容讓我測試一下，並告訴我你的選取方式，我試試看我有沒有比較好的處理作法唷~meikochang@gmail.com
請問保護工作表一建保護可以自行設定可以1.儲存格格式2.序排3.自動篩選4.使用區扭分析表5.編輯物件嗎?
你的這些問題，或許可以到ChatGPT試試看唷，可以參考E81影片~
請問如何在Iphone上解鎖/上鎖受保護的分頁?
求助老師，為什麼我作批量解鎖是會顯示 「執行階段錯誤‘1004’，密碼不符。是不是有需要注意的地方我做漏了？
用巨集錄製一個動作錯誤，可能就會影響執行，建議再依影片錄製一次看看，如果還是錯誤，可以到【吳老師部落格】看看有沒有類似的VBA教學唷。
謝謝老師教學的非常清楚！請問老師有打算教VBA嗎？我願意付費學習
哇，真感謝你~
不過VBA我推薦你跟智揚老師學，我們是前同事，他對我而言是Excel之神~你可以在網頁搜尋他[陳智揚]老師
@@meiko1 謝謝老師的推薦😊
老師請問如何批量的工作表進行部分範圍保護？
請問每一張工作表保護的範圍是一樣的嗎?
@@meiko1對的老師，每張工作表都是一樣要鎖定特定的儲存格呢
老師，您好！
求救！
我照您的一鍵保護所有工作表的步驟去做，VBA出現錯誤後，想直接刪除巨集，要怎麼做呢？
alt+F11 開啟VBA後，把不要的模組，右鍵，移除試試看
@@meiko1 我只看到Module1，請問這個可以刪除嗎？
就是這個喔，可以刪除
@@meiko1 謝謝老師
密碼已經是在英文輸入的狀態下設的，而且我手動取消保護時密碼是對的
关于允许部分编辑的工作表保护，通过勾选锁定或不勾选锁定，我觉得比较复杂，逻辑上老觉得别扭，我一直认为这是翻译的错误或者是一个bug。对于允许部分编辑，我一般是选取允许编辑的部分，然后在工具栏点击允许编辑，然后再保护工作表，这样就不用来回对锁定进行勾选或取消勾选。想和老师探讨一下，这样会有什么我没发现的漏洞吗？
還是有差的唷
透過允許編輯的範圍，這些範圍還是鎖定的狀態，你在保護時，得勾選允許選取鎖定的範圍，才能生效。
而且其他不允許的範圍，也可以被選取，如果透過數值格式內的保護進行鎖定與不鎖定的選擇，彈性是會再大一點的。
@@meiko1 好的，谢谢了，我再研究一下。
老師您好～請問我的部分儲存格點下去是空白，但公式的地方有文字或數字的；照著影片檢查了儲存格的格式不為 ;;; 也沒有隱藏、字體有顏色，但儲存格還是沒有顯示該內容，請問要怎麼讓儲存格恢復顯示內容呢？
有沒有可能是設定了格式化條件，常用，條件式格式打開來看看👀
@@meiko1 老師太厲害了～清除整張工作表的規則就恢復內容了！謝謝老師
太棒了😆
這個Excel是那款2021/365?
365版本，但此影片應該適用於大部分版本喔
老師請問正數與零值 都用0表示 系統要怎麼知道現在是要求正數還是零值未XX色呢? 還是第一個擺的必定是正數? 謝謝
有幾種用法，用法1：正數;負數;零值、用法2：[條件1]格式;[條件2]格式;[剩下的]格式
以上用法給你參考喔
@@meiko1 請問在方法2上 格式都用0系統如何知道是正數還是0本身？
方法2的條件可以這樣打，[紅色][>=60]0;[藍色][=60給紅色，條件2：負數給藍色，剩下的就會是綠色的處理方式，供你參考喔
@@meiko1 謝謝老師說明 很清楚!
老師我的按了；再按隱藏還是看的到儲存格內的文字
每個步驟有確實做到嗎?
兩個分號＂;;" 只能隱藏"數字", 三個分號";;;" 就能隱藏"文字"及"數字"
請教老師，如果我工作表內包含一個一般表格跟一個樞紐分析表，當進行工作表保護時，樞紐分析表就無法進行「重新整理」的動作…請問有什麼方法可以解決嗎？（不要告訴我樞紐表獨立放然後不要設定保護就好 哈哈哈😆）
你的樞紐分析表資料範圍把鎖定拿掉試試看
選取樞紐分析表範圍，儲存格格式\保護\鎖定，勾勾拿掉再進行保護試試看
@@meiko1 沒想到老師這麼快回 謝謝，您說的方法我有試過 好像還是不行，因為我資料來源是變動的，所以每次樞紐表的範圍也會有所變動..所以無法確定每次樞紐表的範圍
我也試過 保護前把允許使用者編輯的部分 核選 樞紐分析表 結果也是不行
@@meiko1 報告老師 我剛剛用固定範圍的樞紐表測試此方法，很不幸的也是不行..麻煩🤣
這樣呀，我找時間測試看看，再跟你說唷
老師請問在巨集功能裡要如何copy語法，謝謝
ALT+F11 打開VBA編輯器，找到相對檔案的模組，就可以複製囉
@@meiko1 謝謝你
老師 再請問你我按照影片的步驟，在你停止錄製巨集並縮小excel,再桌面複製時，按ALT+F11
，但我找不到要複製的內容無法做拷貝，我是那裡步驟錯了，謝謝妳
你說VBA程式碼嗎?如果是，在影片下方資訊說明欄內有唷
工作簿和工作簿的輪播
我沒有下面的工作列 上面也沒有
工具是要自己自訂的唷，要自己自訂的唷，您看這篇是否有符合你的需求喔
ruclips.net/video/yKMbPa0oIr8/видео.html