Hi,
You've complicated the process by using Check boxes. You could just as easily have had the user click in column J which could have triggered the relevant part of the following macro. This macro first has to identify where the checkbox is located and then lock/unlock the relevant cell. And of course you'll need to point all the checkboxes code to this Procedure.
Sub UnlockAdjacentCell()
Dim oChBox As CheckBox
Dim lRow As Long
Dim r As Range 'LRange As String
Dim lName
Sheet1.Unprotect
lName = Application.Caller
Set oChBox = ActiveSheet.CheckBoxes(lName)
lRow = oChBox.TopLeftCell.Row
Set r = Range("L" & lRow)
If oChBox.Value > 0 Then
r.Locked = False
Else
r.Locked = True
End If
Sheet1.Protect
End Sub
Bookmarks