Allow group ungroup and auto filter in a protected sheet

[Hamish - New Zealand]

Hi, I have google and tried a few vba code formulas but i'm not having much luck. I have a worksheet with the top row filtered and multiple grouped rows. I seem to have enabled grouping when the sheet is protected. But the autofilter - it works after i have protected the sheet and am still working on it, but after closing it when i open it again the Auto filter no longer works. I am a dummy when it comes to anything like this and don't understand the code at all so if someone is able to help i would be very grateful. Thanks - Hamish

[Hamish - New Zealand]

Hi, the following is what I have managed to work out so far:

1. Group/Ungroup in a protected sheet - the following code works inserted into ThisWorkbook, but not in a Module

Private Sub Workbook_Open()
Dim wsh As Worksheet
For Each wsh In Me.Worksheets
wsh.EnableOutlining = True
wsh.Protect UserInterfaceOnly:=True
Next wsh
End Sub

2. Autofilter in a protected sheet - the following code works inserted into ThisWorkbook, but not in a Module. I can also Autofilter without the code altogether by simply ticking the Autofilter tick box when protecting the sheet.

Private Sub Workbook_Open()
Dim wsh As Worksheet
For Each wsh In Me.Worksheets
wsh. EnableAutoFilter = True
wsh.Protect UserInterfaceOnly:=True
Next wsh
End Sub

The problem I can't solve is that I want to enable BOTH Group/Ungroup AND Autofilter in a protected sheet - this is what i need help with please. I can get each of these working individually but I can't get both to work at the same time. Is there a code that will enable both?

Would really appreciate some help with this. Thanks in advance - Hamish.

[Hamish - New Zealand]

Hi again. I finally solved it - to enable BOTH group/ungroup AND autofilter I combined both the above codes into one and entered it into the "ThisWorkbook" window and it works. The code I used is below:

Private Sub Workbook_Open()
Dim wsh As Worksheet
For Each wsh In Me.Worksheets
wsh. EnableAutoFilter = True
wsh.EnableOutlining = True
wsh.Protect UserInterfaceOnly:=True
Next wsh
End Sub

Happy days!
Hamish.