Need help with macros and protections

[marvontherim]

I want to protect a sertain range of titles and leave the remainin
worksheet open for data entry. Everytime I try to do this protection i
requires the entire sheet to be protected and a password to b
activated for the effected range. I want the unprotected range withou
a password entry.

Secondly I have created two buttons to list data in assending an
decending order. I got them working but now they give me erro
messages. Also the assending macro places all 0 enteries on the top
need the macro to read greater that 0
Any suggestions would be appreciated.
Macros:
Sub Macro6()
'
' Macro6 Macro
' Macro recorded 6/17/2004 by USER
'

'
Range("A8:F870").Select
Selection.Sort Key1:=Range("A8" > 1), Order1:=xlAscending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
End Sub
Sub Macro7()
'
' Macro7 Macro
' Macro recorded 6/17/2004 by USER
'

'
Range("A8:F870").Select
Selection.Sort Key1:=Range("A8"), Order1:=xlDescending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
End Su

 

[marvontherim]

I figured how to lock certain cells and protect titles. I only need hel
with this macro change
Thank