macro help

[Guest]

I have the following macro that protects all sheets and allows changes to
pivot table.

However I only want some sheets to be protected and not all. Is there a way
I can assign the sheet names to this?

I have excel 2000

On Error Resume Next
' Err.Clear
Dim sh As Worksheet, sh1 As Worksheet
Set sh1 = ActiveSheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
sh.EnablePivotTable = True
sh.Protect Contents:=True, UserInterfaceOnly:=True
Next
sh1.Activate
Sheets("front sheet").Select
Range("b8").Select

 

[Dave Peterson]

Maybe just looping through the worksheets and checking their names...

For each sh in thisworkbook.worksheets
select case lcase(sh.name)
case is = "sheet1","sheet5","sheet17"
'do one thing
case is = "sheet2","sheet54","sheet88"
'do a different thing
case else
'do nothing at all
end select
next sh

If you only have two categories, you could use one "case is =" line and use the
"case else" for all the other sheets.