Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting a protected worksheet
Is it possible to Sort a protected worksheet that has protected formulas?
I have a Workbook_Open sub that unprotects, then protects the active worksheet (see below). The worksheet still won't allow sorting, even though I have the AllowSorting:=True. Also, is it possible to have the code clear itself or disable the Workbook_Open sub after it runs? The original is an Macro Enabled Workbook. On open, it's refreshed, then saved on our network as Workbook.xls format. It's annoying to end user to have the code run every time they open the workbook. Sub Workbook_Open() ActiveSheet.Unprotect Password:="mypassword" 'other code here for Refreshall, etc. ActiveSheet.Protect Password:="mypassword", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, _ AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True -- Thanks, Kevin |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting a protected worksheet
in front of you code add:
ActiveSheet.Unprotect At the end of you code add: ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False you might also want to use Application.ScreenUpdating = False "AFSSkier" wrote: Is it possible to Sort a protected worksheet that has protected formulas? I have a Workbook_Open sub that unprotects, then protects the active worksheet (see below). The worksheet still won't allow sorting, even though I have the AllowSorting:=True. Also, is it possible to have the code clear itself or disable the Workbook_Open sub after it runs? The original is an Macro Enabled Workbook. On open, it's refreshed, then saved on our network as Workbook.xls format. It's annoying to end user to have the code run every time they open the workbook. Sub Workbook_Open() ActiveSheet.Unprotect Password:="mypassword" 'other code here for Refreshall, etc. ActiveSheet.Protect Password:="mypassword", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, _ AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True -- Thanks, Kevin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sorting a protected worksheet | Excel Worksheet Functions | |||
Sorting a Protected Worksheet | Excel Discussion (Misc queries) | |||
Sorting on a protected worksheet | Excel Discussion (Misc queries) | |||
Sorting protected worksheet | Excel Discussion (Misc queries) | |||
Sorting a protected worksheet | Excel Programming |