Disable grouping and ungrouping on a protected sheet/tab

[drom]

Hi and thanks in advance!

Is it possible to disable outlining, I mean (grouping and ungrouping) in a protected sheet/tab in excel

In one of my Excel sheets/tabs I have freeze panes on cell D7

• Rows 1:7 are grouped
• I have many headings and formulas inRows1:5 because this tab contains many tables
  • And I am using sumproduct formulas to check in the table's data is OK
  • eg =SUMPRODUCT(--(Tabla1[A]="OK")) (Non sense formula just for this question)

From Column C:Z I have columns grouped

When someone activates this sheet I have a

Private Sub Worksheet_Activate()
  ActiveSheet.Outline.ShowLevels RowLevels:=1, columnlevels:=1
  ActiveWindow.ScrollRow = 1
End Sub

I would like to protect the tab and disable the possibility to ungroups the rows and columns using:

• The 1,2,3 numbers on the top left of the sheet
• The + symbol on the top of AA
• The + symbol on the left of rows 7

So i would like to disable ungrouping and grouping in my protected tab


I know I can lock rows 1:6 and Column C:Z and avoid selecting the locked cells but is there any way to disable grouping and ungrouping on a protected sheet/tab

Thanks again

 

[MikeVol]

Hmm, so many Messages (564)... Like example.

Option Explicit

Sub Macro1()
   
    With ActiveSheet
        .Unprotect
        .EnableOutlining = False
        .Protect , UserInterfaceonly:=True
    End With

End Sub