Sorting Rows on a password protected worksheet

[Guest]

Hello,
I have an MS Excel worksheet (Excel 2002), for which I have password
protectection enabled.

There are several columns which the users can enter data, they would also
like to sort the data (both asc. & desc.), but as you know, sorting functions
are disabled when protection is on.

I have tried this code, to no avail:
----------------------------------------------------------------------------------------------
Sub SortSheet()

ActiveSheet.Unprotect Password:="cfo2006"
Range("A14:Q14").Sort Key1:=Range("C14"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect Password:="cfo2006", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End Sub

 

[Sandy]

It looks like your range is only one row and you are sorting top to
bottom so when it sorts there is only one variable in the column to
sort, try setting the range to cover all the data and then run the
code.

Sandy

 

[Sandy]

If you are trying to sort by row change the orientation to
xlLeftToRight. If you are sorting by columns then you need to adjust
your range , you only have one row of data in each column to sort.

Sandy

 

[Guest]

Sandy, YOU ARE AWESOME!

Works like a charm, when you set it up correctly -)

Thanks very much for your quick response, I appreciate it!
--
Coach Tony

If you are trying to sort by row change the orientation to
xlLeftToRight. If you are sorting by columns then you need to adjust
your range , you only have one row of data in each column to sort.

Sandy