Lock Cells

[jordanstuart]

I'm trying to sort data in a range of data, but i'm need to lock some of the cells within to ensure that the formulas in the cells aren't changed. Here is an example of the data that I need to sort. Is there a formula or VBA code to lock these cells, but still allow them to be sorted based on their score?

Person	Region	HC	OOO	UP OOO	SS	AHC	DPH	ISMs	%	PPD	Sub	DPH	ISM	Goals	SCORE
Ashley	Florida	22	15	47.25	3	18.28	60.47	93.21%	4.90%	24.64	27.40	2	0	0.00	29.40
Alex	Colorado	25	19	63.8	18	21.19	69.22	92.96%	3.82%	22.42	24.88	2	0	0.50	27.38
Mike	Texas	23	21	47.25	21	20.16	70.92	93.92%	3.62%	21.91	24.32	2	0	0.50	26.82
Dan	Texas	21	19	62.75	15	16.84	69.52	96.78%	3.38%	20.11	22.38	2	1	0.75	26.13

<colgroup><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[bsquad]

simple version of it. I am sure someone could put together a more elaborate version.

highlight your selected area and then run -

Sub ProtectCells()
    Dim c As Range
    
        For Each c In Selection
            Selection.Locked = True
            Selection.FormulaHidden = True
        Next c
            With ActiveSheet
                .Protect Password:="YourPassword", AllowFiltering:=True
                .EnableSelection = xlUnlockedCells
            End With
End Sub

 

[jordanstuart]

We are trying to use this, but it is locking everything so we are unable to sort this. Are there any other suggestions you have for fixing this?

 

[Fluff]

Try adding this

    Cells.Locked = False

before the For Each

 

[bsquad]

Are you selecting the headers as well? I don't think it will work if you do