Lock Cell based on Condition and Repeat till Last Row

**georgeanaprop** · 05-21-2010, 05:02 AM

Hey Guys

I'm trying to get this code to run :

HTML Code:

Basically, it needs to detect whether a value in Col E is "YES/NO" if it is "NO" or blank, then the corresponding cell in Col H needs to "0" and Locked, so the only way a user can enter a value is if the cell in Col E is switched to "YES" again

This should be repeated for as many rows as there are from H17 downwards
If H17 downards happens to be blank, then the macro should exit ie do nothing

I've been running into continous loop problems and have not yet been able to solve it

Any ideas here?

**wamp** · 05-21-2010, 05:46 AM

I think it would be easier to accomplish this in a worksheet-change event

like this for example.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 and target.row >= 17 And Target.Value <> "YES" Then  ' Check whether the changed cell is in column E and is in row17 or below, and contains something other than "YES"

ActiveSheet.Unprotect
Target.Offset(0, 2).Clear
Target.Offset(0, 2).Locked = True
Target.Offset(0, 2).Value = 0
ActiveSheet.Protect
End If

'EDIT: and maybe this code to unlock the cell?
'If Target.Column = 5 and target.row >=17 And Target.Value = "YES" Then Target.Offset(0, 2).Locked = False

End Sub