Unprotecting Outlining

[Corleone]

Hi
I have a protected sheet in my workbook
I am able to unprotect the filtering however i dont seem to be able to unprotect the outlining.

I tried assigning the code below to it but it s not working
Any Ideas?
Thanks

----------------------------------------------------------------------------------------------------------------------------------------

Option Explicit

Private Sub worksheet_activate()

With ActiveWorkbook.Sheets("update")
Sheets("UPDATE").Select
Rows("1:1").Select
Worksheets("UPDATE").Unprotect "HORSE"


Range("B1").Select
Worksheets("UPDATE").Protect "HORSE", AllowFiltering:=True, userInterfaceonly:=True
ActiveSheet.EnableOutlining = True


End With
End Sub

 

[RoryA]

The code needs to be in the worksheet code module for that sheet - is that where it is? It can also be simplified to:

Option Explicit

Private Sub Worksheet_Activate()
With Me
   .Unprotect "HORSE"
   .EnableOutlining = True
   .Protect "HORSE", AllowFiltering:=True, userInterfaceonly:=True
End With
End Sub

Note that this will only allow you to use existing outlines, not create new ones.

 

[Corleone]

Thanks Rory
Yes, the code is assigned to the specific sheet
I have replaced it with your code but the issue still remains

 

[RoryA]

Assuming you have verified that the code is actually running (you will need to activate another sheet, then switch back to the relevant sheet), can you confirm that you are simply trying to use an existing outline, not add a new one?

 

[Corleone]

Assuming you have verified that the code is actually running (you will need to activate another sheet, then switch back to the relevant sheet), can you confirm that you are simply trying to use an existing outline, not add a new one?

Its working now - Thanks - i just had to do as you said above and click on another sheet then back to this one
Thanks