如何在受保護的工作表中對行進行分組和取消分組？

眾所周知，在受保護的工作表中，我們在進行某些操作時會受到很多限制。例如，我們無法在分組和未分組的數據之間切換。有沒有辦法在受保護的工作表中對行進行分組或取消分組呢？

使用VBA代碼在受保護的工作表中對行進行分組和取消分組

使用VBA代碼在受保護的工作表中對行進行分組和取消分組

也許，除了使用VBA代碼之外，沒有其他更好的方法來解決這個問題，請按照以下步驟操作：

1. 啟動您要使用的那個工作表，請確保該工作表尚未受到保護。

2. 然後按住 ALT + F11 鍵，這將打開 Microsoft Visual Basic for Applications 窗口。

3. 點擊 插入 > 模塊，然後將以下代碼粘貼到模塊窗口中。

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 鍵運行此代碼，隨後會彈出一個提示框，提醒您輸入密碼以保護當前工作表。參見截圖：

5. 接著點擊 確定，您的工作表已經被保護，但您仍然可以在這個受保護的工作表中展開和收縮分級顯示符號(O)，參見截圖：

備註：如果您的工作表已經受到保護，此代碼將不起作用。