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

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

众所周知，在受保护的工作表中，应用某些操作有很多限制。 例如，我们无法在分组数据和未分组数据之间切换。 有没有一种方法可以对受保护的工作表中的行进行分组或取消分组？

使用VBA代码对受保护的工作表中的行进行分组和取消分组

使用VBA代码对受保护的工作表中的行进行分组和取消分组

也许，没有其他解决该问题的好方法，但是使用VBA代码，请执行以下操作：

1。 激活您要使用的工作表，请确保该工作表尚未受到保护。

2。 然后按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

3。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：在受保护的工作表中对行进行分组和取消分组

Sub EnableOutlining() Update 20140603 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，您的工作表已受到保护，但是您可以在此受保护的工作表中展开和收缩轮廓符号，请参见屏幕截图：

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