Macro code mod - add tabs/apply to entire workbook

  • Thread starter Thread starter teh_chucksta
  • Start date Start date
T

teh_chucksta

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
 
Sub workbook_open()
For Each sh In Activeworkbook.Worksheets
With sh
.Protect Password:="xlhelp", userinterfaceonly:=True
.EnableOutlining = True
End With
Next sh
End Sub
 
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
 
Back
Top