Hi

Try this:

Sub workbook_open()
for each sh in thisworkbook.sheets
if sh.name<"NotThisSheet" then
With sh
.Protect Password:="xlhelp", userinterfaceonly:=True
.EnableOutlining = True
End With
end if
next
End Sub

Regards,
Per

"teh_chucksta" skrev i meddelelsen
...
Hi,

The macro below allows users to group/ungroup rows in a protected sheet.
Question: how to modify the VB code so I can incorporate additional tab
names
or better yet, have the macro apply to the entire workbook?

Thanks in advance for your help,
Charlie


Sub workbook_open()
With Worksheets("Sheet1")
.Protect Password:="xlhelp", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub