Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro help
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro help
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. flow23 wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Closing File Error | Excel Discussion (Misc queries) | |||
macro with F9 | Excel Discussion (Misc queries) | |||
Make Alignment options under format cells available as shortcut | Excel Discussion (Misc queries) | |||
Playing a macro from another workbook | Excel Discussion (Misc queries) |