如何在受保护的工作表中对行进行分组和取消分组？
众所周知，Excel 工作表一旦启用保护，用户可执行的操作便会受到诸多限制。例如，默认情况下，在受保护的工作表中通常无法使用 Excel 的大纲功能来展开或折叠组合数据。当您希望允许部分用户通过组合功能整理或探索数据，同时又需确保其他内容免受意外更改时，这一限制便显得尤为不便。因此，掌握如何在不影响工作表安全性的前提下启用组合与取消组合功能，对于兼顾数据完整性与可用性至关重要。
使用 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 运行代码，系统将弹出提示，要求您设置工作表保护密码。输入所需密码后，单击“确定”。如下图所示：
5. 输入密码后，单击“确定”。现在，您的工作表已受保护，但您和其他用户仍可点击工作表左侧的加号和减号分级显示符号，轻松展开或折叠组合，如下图所示：
提示与注意事项：
- 若工作表已受保护，代码将无法运行——请务必先取消保护。
- 基于 VBA 的保护在高级场景中或许有效，但在启用宏限制的环境中或对不熟悉 VBA 的用户而言并不适用。
- 每次共享启用了宏的工作簿时，请提醒收件人启用宏，以确保相关功能正常运行。
优势：该方法在自动化保护流程和自定义允许的操作方面灵活高效，助您轻松掌控安全设置！
局限性：需启用宏，但出于安全考虑，并非所有用户或组织都允许使用 VBA。
如果运行宏后遇到错误或组合功能未按预期工作，请仔细检查以下事项：
- 在运行宏之前，工作表已取消保护。
- 在保护工作表之前，已通过“数据”>“组合”创建了分级显示符号（加号/减号）。
- 您已在提示时正确输入了密码，或可尝试使用更简单的密码进行故障排查。
- 您的 Excel 宏设置已允许运行 VBA。