paul_pearson
08-15-2013, 01:12 AM
Hi ExcelFox
I tried this code below but it still asks for the sheet to be unprotected otherwise the grouping cannot be changed
Private Sub Auto_Open()
Dim wks As Worksheet
For Each wks In Worksheets
With wks
.Protect Password:="abc", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next wks
End Sub
Thanks
Paul
I tried this code below but it still asks for the sheet to be unprotected otherwise the grouping cannot be changed
Private Sub Auto_Open()
Dim wks As Worksheet
For Each wks In Worksheets
With wks
.Protect Password:="abc", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next wks
End Sub
Thanks
Paul