Sorting a protected worksheet

[AFSSkier]

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

 

[ordnance1]

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