在工作中我們可能會需要對工作簿中的多張工作表設置密碼,如果一張一張地對工作表單獨進行設置會比較費事,這篇文章就跟大家分享一下如何一次性為工作簿中的所有工作表統一設置密碼。本文案例中,我們将所有工作表保護密碼統一設置為“666”。
操作步驟1. 打開工作簿,單擊窗口上方“開發工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口上方,單擊“插入”按鈕,在下拉列表中選擇“模塊”,此時在窗口左側列表中就會增加一個存放編寫代碼的“模塊1”。同時,在右側會看到模塊1(代碼)編輯窗口。
3.在模塊1(代碼)編輯窗口中輸入如下代碼:
Sub 批量保護()For Each sht In Sheetssht.Protect "666"NextEnd Sub
輸入完畢後,單擊VBA編輯器窗口上方的“運行子過程/用戶窗體”按鈕(綠色向右的三角形)運行代碼。
4.代碼運行完畢後,選中工作簿中的一張工作表嘗試進行編輯修改,會彈出如下對話框,提示工作表已被保護,如果要修改需要輸入密碼。(這裡的密碼就是前面代碼第三行中的數字“666”)
小提示
如果需要批量解除對所有工作表的密碼保護,也可以參照上面的方法在VBA編輯器窗口中進行設置,将代碼修改一下即可,具體代碼如下:
Sub 解除批量保護()For Each sht In Sheetssht.UnProtect "666"NextEnd Sub
#職場技能#
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!