如何在受保护的工作表中对行进行分组和取消分组？

众所周知，在受保护的工作表中，我们进行某些操作时会受到很多限制。例如，我们无法在分组和未分组的数据之间切换。那么，有没有办法在受保护的工作表中对行进行分组或取消分组呢？

使用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. 然后单击 确定，您的工作表已被保护，但您可以在该受保护的工作表中展开和折叠分级显示符号，请参见截图：

备注：如果您的工作表已经受到保护，此代码将不起作用。