Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何在受保護的工作表中群組和取消群組列?

Author Xiaoyang Last modified

眾所周知,一旦 Excel 中的工作表受到保護,用戶可執行的操作會受到多項限制。例如,使用 Excel 的大綱功能來展開或摺疊群組的切換功能,在受保護的工作表中通常預設是禁用的。當您希望允許某些用戶通過群組來組織或探索數據,但仍然要防止其他內容被意外更改時,這一限制尤其不方便。了解如何在不影響工作表安全的情況下允許群組和取消群組操作,對於維護數據的完整性和可用性來說非常重要。

使用 VBA 程式碼在受保護的工作表中群組和取消群組列


arrow blue right bubble 使用 VBA 程式碼在受保護的工作表中群組和取消群組列

在受保護的工作表中無法進行群組和取消群組操作是一個常見的挑戰。解決此問題的一個可靠方法是使用 VBA 程式碼,該程式碼可以在保持工作表保護的同時,讓您以程式化的方式啟用大綱功能。如果您熟悉巨集,或者您的組織政策允許使用 VBA 程式碼,那麼這種方法非常適合。然而,請注意,VBA 解決方案可能需要啟用巨集的工作簿(.xlsm),如果您的環境中禁用了巨集,或者您希望避免打開文件時出現潛在的安全提示,則不應使用此方法。

1. 啟動您希望啟用群組和取消群組功能的工作表。確保工作表目前未受保護——如果已經受保護,則此方法將不適用。如有必要,先使用「檢閱」>「取消保護工作表」命令。

2. 接下來,按 ALT + F11 打開 Microsoft Visual Basic for Applications 編輯器。

3. 在 VBA 編輯器中,點擊「插入」 >「模組」,然後將以下程式碼粘貼到新的模組窗口中。請確保準確粘貼程式碼,以使其正常運行。

VBA 程式碼:在受保護的工作表中群組和取消群組列

Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

此程式碼啟用工作表保護,同時允許展開和摺疊群組列或欄的功能。程式碼會提示您設置保護密碼——務必記住它,因為將來解除工作表保護時需要用到這個密碼。如果您忘記了密碼,可能無法在沒有高級恢復方法的情況下解鎖工作表。

4.F5 鍵運行程式碼。隨後會出現一個提示框,要求您設置工作表保護密碼。輸入您想要的密碼並點擊「確定」。請參見下面的截圖:

group in protected sheet with vba

5. 輸入密碼後點擊「確定」。現在,您的工作表已受保護,但您和其他用戶仍然可以通過工作表左側的加號和減號大綱符號展開和摺疊群組,如下圖所示:

group in protected sheet as normal when running vba code

提示與注意事項:

  • 如果工作表已經受到保護,程式碼將無法運行——始終要先取消保護。
  • 基於 VBA 的保護對於高級場景可能有效,但不適用於有巨集限制的環境或不熟悉 VBA 的用戶。
  • 每當分享啟用巨集的工作簿時,請提醒收件人啟用巨集以便這些功能能夠正常運作。

優勢:此方法提供了自動化保護過程和自訂允許操作的靈活性。

局限性:需要啟用巨集,並且由於安全原因,並非所有用戶或組織都允許使用 VBA。

如果在運行巨集後遇到錯誤或群組功能未能如預期般運作,請仔細檢查以下幾點:

  • 運行巨集之前,工作表是否處於未受保護狀態。
  • 在保護之前,是否已通過「數據」>「群組」創建了大綱符號(加號/減號)。
  • 在提示時是否正確輸入了密碼,或者嘗試使用較簡單的密碼進行故障排除。
  • Excel 中的巨集設置是否允許 VBA 運行。
如果問題仍然存在,請考慮以下針對非巨集用戶的替代方法。

最佳 Office 生產力工具

🤖 Kutools AI 助手:以智能執行為基礎,革新數據分析 生成程式碼 創建自訂公式 分析數據並生成圖表 調用 Kutools 增強函數
熱門功能查找、選取項目的背景色或標記重複值刪除空行合併列或單元格且不遺失數據四捨五入(免公式)...
高級 LOOKUP多條件 VLookup多值 VLookup多表查找模糊查找...
高級下拉列表快速創建下拉列表 依賴型下拉列表 多選下拉列表...
列管理器添加指定數量的列移動列切換隱藏列的顯示狀態比較區域及列...
精選功能網格聚焦 設計檢視 增強編輯欄 工作簿及工作表管理器 資源庫(快捷文本) 日期提取器 合併資料 加密/解密儲存格 按列表發送電子郵件 超級篩選 特殊篩選(篩選粗體/傾斜/刪除線...)...
15 大工具集12 項文本工具添加文本刪除特定字符…)50+ 儀表 類型甘特圖等)40+ 實用 公式基於生日計算年齡等)19 項插入工具插入QR码根據路徑插入圖片等)12 項轉換工具金額轉大寫匯率轉換等)7 項合併與分割工具高級合併行分割儲存格等)...及更多
使用 Kutools,語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言!

運用 Kutools for Excel,全面提升您的 Excel 技能,體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能,讓您提升工作效率、節省時間。 點此尋找您最需要的功能...


Office Tab 為 Office 帶來分頁介面,讓您的工作更加輕鬆簡單

  • 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀
  • 在同一視窗的新分頁中打開與創建多份文件,而非開啟新視窗。
  • 提升您的生產力50%,每日可幫您減少數百次鼠標點擊!

所有 Kutools 外掛,一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛,外加 Office Tab Pro,非常適合需要跨 Office 應用程式協同作業的團隊。

Excel Word Outlook Tabs PowerPoint
  • 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
  • 一鍵安裝,一份授權 — 幾分鐘完成設置(支援 MSI)
  • 協同運作更順暢 — Office 應用間無縫提升生產力
  • 30 天全功能試用 — 無需註冊、無需信用卡
  • 最超值 — 一次購買,節省單獨外掛費用