Enabling Group outline protected worksheets

[psamu]

I have multiple worksheets protected with password and has group columns . I have following code but not working, I dont know what is wrong, please help. Thanks

Private Sub Workbook_Open()
' Dim ws As Worksheet
'
' For Each ws In Worksheets
'
' Select Case UCase(ws.Name)
' Case "7", "9"
' With ws
' .Protect Password:="Test", UserInterfaceOnly:=True
' .EnableOutlining = True
' End With
' Case Else
' End Select
'
' Next ws
'
'End Sub

 

[psamu]

I have several worksheets in the same workbook, but two are only protected and have grouping. Is this causing problem?

 

[RoryA]

No, that should not be an issue.

 

[psamu]

I found out that if I name the income sheet 1 and expense sheet 2 then it works.

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

Select Case UCase(ws.Name)
Case "1", "2"
With ws
.Protect Password:="test", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Case Else
End Select

Next ws

End Sub

 

[RoryA]

See my earlier post here.

 

[psamu]

I am sorry, I missed upper case part. It is working. Thank you so much. Appreciate your patience.

Have a nice day!