Expanding grouped rows when protected

[cpfeffer]

Is there any way to still allow users to expand rows when an Excel sheet is protected? There are options to allow user to format rows, sort, use autofilter, etc, but nothing for expanding rows.

 

[Johnny C]

I don't think so, that's one of the the differences between Hide and Group.

You need to write some code that undoes the protection, then groups the rows the use hss selected selection (you can specify EntireRow in the group property so they only need select cells) and redo the protection.

 

[cpfeffer]

Hey, I figured it out. Thanks.

Sub CollapseRows()
ActiveSheet.Unprotect "pwd"
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Protect "pwd"
End Sub


Sub ExpandRows()
ActiveSheet.Unprotect "pwd"
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.Protect "pwd"
End Sub