macro for sorting in protected sheet
Should be as I highlighted the code and paste it
"Gord Dibben" wrote:
Works fine for me.
Did you copy it exactly as Rick posted?
Gord Dibben MS Excel MVP
On Sat, 20 Oct 2007 10:12:00 -0700, vcff wrote:
range A4:A33 was also highlighted
"vcff" wrote:
Hi Latham
after copying your code, it gave me a error "400"
"JLatham" wrote:
Ok, I think I see the 'why' of your question - the code you have sorts the
entire UsedRange and not the area A6:A60 which is all you want to sort. I
presume that in your real code you're using the correct password where
needed, so...
Sub sortit()
Dim coltosort As Range
Set coltosort = ActiveSheet.Range("A6:A60")
ActiveSheet.Unprotect Password:="justme"
coltosort.Select
Selection.Sort Key1:=coltosort.Cells(2), _
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With ActiveSheet
.Protect Password:="justme"
.EnableSelection = xlNoRestrictions
End With
End Sub
Note the change from .. to . for the interior of the With...End With
statements.
"vcff" wrote:
Hi all
I created a button in a protected worksheet to allow sorting of data in
column A6 to A60 which does not work. Pls help.
I used the following code which I found in the discussion group. What I need
is to sort only a range of datas in one column, eg A6 to A60
Sub sortit()
Dim coltosort As Range
Set coltosort = Application.InputBox(Prompt:= _
"Select A Column", Type:=8)
ActiveSheet.Unprotect Password:="justme"
ActiveSheet.UsedRange.Sort Key1:=coltosort.Cells(2), _
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With ActiveSheet
..Protect Password:="justme"
..EnableSelection = xlNoRestrictions
End With
End Sub
|