excel分组后如何实现保护

将下段代码添加到，vba编辑界面（可使用快捷键alt+f11），双击thisWorkbook，然后复制粘贴。
然后按照你的步骤做下去就可以了（使用工作表保护）
===================================================
Private Sub Workbook_Open()
Sheets("Sheet1").EnableOutlining = True
Sheets("Sheet1").Protect Password:="***", DrawingObjects:=True, _
contents:=True, UserInterfaceonly:=True
End Sub

===================================================

说明：”Sheet1“为实际的工作表名，根据你的excel进行修改；

"***"为你设定的工作表保护密码