Group/Ungroup in a Protected Sheet

[ExcelManager01]

All,

I've been working on a budget template that has protected sheets with certain cells being made unprotected for the user to input data. Many of these unprotected cells have been grouped together for esthetic reasons.

I'm trying to group and ungroup these data inputs while continuing to lock down the individual sheets.

I've used the code below in the VB Editor under "THIS WORKSHEET" but am having no luck getting the groupings to be accessible when I protect the sheet with the same password.

Any clue as to what I'm doing wrong?

....... [See Code Below] .......

Private Sub Workbook_Open1()

With Sheet7
.Protect Password:="secret", UserInterfaceOnly:=Tru
.EnableOutlining = True
End With
End Sub

Private Sub Workbook_Open()
With Sheet6
.Protect Password:="secret", UserInterfaceOnly:=Tru
.EnableOutlining = True
End With
End Sub

Private Sub Workbook_Open2()
With Sheet8
.Protect Password:="secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

[JosephP]

you can only have one workbook_open event-put all the protecting code in that

[ExcelManager01]

JosephP,

Are you saying that it should be written like this....

With Sheet7
.Protect Password:="secret", UserInterfaceOnly:=Tru
.EnableOutlining = True

With Sheet6
.Protect Password:="secret", UserInterfaceOnly:=Tru
.EnableOutlining = True

With Sheet8
.Protect Password:="secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

[JosephP]

almost ;-)

With Sheet7
.Protect Password:="secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
With Sheet6
.Protect Password:="secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
With Sheet8
.Protect Password:="secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

or use a loop

   Dim ws
   For Each ws In Array(Sheet6, Sheet7, Sheet8)
      ws.Protect Password:="secret", userinterfaceonly:=True
      ws.EnableOutlining = True
   Next ws

[ExcelManager01]

Now I've got a different problem.

If I go into the VB Editor and go the amended code I have to press F8 and have the first line highlight yellow before the code will work.
If I close the workbook and reopen the grouping/ungrouping doesn't work unless I first go to the VB Editor, go to the code and then press F8, back out and then it all works.

Any reason this is happening?
How can I make it so it works without the user having to step into the code and press F8?

Thanks

[JosephP]

what is the exact code you have in the ThisWorkbook module now?

[ExcelManager01]

2014 Budget Template_Reforecast.xlsm

I've attached the model

[JosephP]

Private Sub Workbook_Open1()

oughta be

Private Sub Workbook_Open()

[ExcelManager01]

That did it!
Thanks for your help JosephP.

Much appreciated.

[JosephP]

you're welcome :-)

don't forget to mark the thread solved, please