老師你好,我由於看見你這課題很有趣,因此我根據你課題內容,寫了一段改良版本的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