TRULY locking a row or column

erisaaka,

Is there perhaps an option in Excel 2003, when you select Custom Sort, to indicate that your data has headers? That would leave them in place. (It's been a while since I used E2003, so I'm not sure if that's only a feature of later versions.)

This was taken from this forum. Hope it helps

Option Explicit
Sub Macro1()
ActiveSheet.Unprotect
Selection.Locked = True
Selection.FormulaHidden = False
Range("A24").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Notice that the recorder doesn't display the passwords you entered.

One way of modifying the code is:

Option Explicit
Sub Macro1A
ActiveSheet.Unprotect password:="hi"
range("a1").Locked = True
range("a24").locked = false
ActiveSheet.Protect password:="hi",DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub

LeapingLizard

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as "SOLVED".
For the meantime I'll do it for you.

How?
New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

Note:
You can also thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given.
By doing so you can add to the reputation(s) of those who helped and shared their time in helping you.