If cell = value, lock nearby range

I'm having an issue with this code and I can't figure it out.

The goal is to look in cells A1:A5 for "lock" or "unlock". Based on the value, I want to lock/unlock the corresponding row (say cell a4 = "lock", then row 4 is locked... cell a5 = "unlock" row 5 is unlocked).

Any help is greatly appreciated.

Originally Posted by davesexcel

I don't see a code

Sorry I didn't supply one.

Originally Posted by walruseggman

probably overkill for such a small data set, but if your set was significantly larger, it would be better than a loop.

Please Login or Register  to view this content.

I tried this but it didn't work. The actual range is dynamic depending on another factor. The A1:A5 is just an example of the potential 200-300 rows.

I just needed to protect it after.

Thank you so much for your help! I changed it slightly for columns (using them both I can dynamically control what end users will access).

Sub LockColumns()
Set r = Worksheets("Summary-Expenditures").Range("a1:zz100")
r.AutoFilter Field:=1, Criteria1:="lock"
r.SpecialCells(12).EntireRow.Locked = True
r.AutoFilter Field:=1, Criteria1:="unlock"
r.SpecialCells(12).EntireRow.Locked = False
r.AutoFilter
Worksheets("Summary-Expenditures").Protect
End Sub