How To enable the Sort function for a protected Excel sheet

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

lkjing - 30 Jun 2005 06:27 GMT

After protecting my sheet with a password, I found that the sort function
will be not available to users without the password. Realized Autofilter can
be enabled using codes. What about "sort" function? Thanks.

Reply to this Message

Dave Peterson - 30 Jun 2005 14:12 GMT

See one reply to your post in .misc.

> After protecting my sheet with a password, I found that the sort function
> will be not available to users without the password. Realized Autofilter can
> be enabled using codes. What about "sort" function? Thanks.

Signature

Dave Peterson

Reply to this Message

purplemx - 26 Jan 2006 15:51 GMT

Hi

Please try this

Sub Sort()
'
' Sort Macro
' Macro recorded 4/13/2005 by TZDTKQ
'

'
ActiveSheet.Unprotect password:="PASSWORD"
Range("D12").Select
Range(Selection, Selection.End(xlDown)).Select
Range("D12:D61").Select
Selection.SORT Key1:=Range("D12"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D12").Select
ActiveSheet.Protect password:=" PASSWORD "
End Sub

Reply to this Message