Grouping/Ungrouping locked sheets VBA code help

[gaz67]

Hi all,

I have a simple VBA workbook code to allow my grouped rows to be grouped and ungrouped when a sheet is locked.

I have 2 sheets, Estimate & Schedule. It only works on 1 sheet that i name eg: "Estimate".
How can i make it work on both sheets or the entire workbook?

Option Explicit
Private Sub Workbook_Open()
With Worksheets("Estimate")
.Protect Password:="", userinterfaceonly:=True
.EnableOutlining = True
.EnableAutoFilter = True
If .FilterMode Then
.ShowAllData
End If
End With
End Sub


With Worksheets("Estimate, Schedule") ?
With Worksheets("Estimate"); ("Schedule") ?
With Workbook ??

Thanks
Gary

 

[Peter_SSs]

When posting code, please use Code Tags as it preserves indentations, making your code easier to read, debug, copy/paste etc. My signature block below shows how.

Try

Private Sub Workbook_Open()
  Dim ws As Worksheet
  
  For Each ws In Sheets(Array("Estimate", "Schedule"))
    With ws
      .Protect Password:="", userinterfaceonly:=True
      .EnableOutlining = True
      .EnableAutoFilter = True
      If .FilterMode Then
        .ShowAllData
      End If
    End With
  Next ws
End Sub

 

[gaz67]

Thanks Peter this worked.

 

[Peter_SSs]

Thanks Peter this worked.

You're welcome.