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

眾所周知，在受保護的工作表中，應用某些操作有很多限制。 例如，我們無法在分組數據和未分組數據之間切換。 有沒有一種方法可以對受保護的工作表中的行進行分組或取消分組？

使用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。 然後點擊 OK，您的工作表已受到保護，但是您可以在此受保護的工作表中展開和收縮輪廓符號，請參見屏幕截圖：

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