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

 

[RoryA]

Remove the apostrophes from the front of each line, and ensure that the code is in the ThisWorkbook module of your workbook.

 

[psamu]

Thanks. Actually it was not commented out in excel, when that was not working I did that, then I copied. This code is placed in workbook module. But some reason it is not working

 

[RoryA]

It will only work for sheets called "7" and "9", if that's the problem?

 

[psamu]

No still not working, but if I put below code in workbood module for one sheet it works fine, but I dont know how to add multiple sheet in the same code.

Private Sub Workbook_Open()
' With Worksheets("Income")
''With ActiveWorkbook
'.Protect Password:="test", UserInterfaceOnly:=True
'.EnableOutlining = True
''.EnableAutoFilter = True
'End With
'End Sub

 

[RoryA]

You need to replace the "7" and "9" with the names of the sheets you want to allow grouping on.

 

[psamu]

I did that, still not working. I am using excel 2007

 

[RoryA]

Unless you post the actual code you tried I cannot assist you with why it doesn't work...

 

[psamu]

I tried all three below below

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

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

Next ws

End Sub
--------------------------------
Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

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

Next ws

End Sub
---------------------
Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

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

Next ws

End Sub

 

[RoryA]

You need to put the names in upper case due to the use of UCase:

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

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

Next ws

End Sub