Locking/unlocking non contigous cells

[joey peanuts]

I know there has to be a way to clean this up into 1 command instead of selection each cell and locking/unlocking. Any help would be appreciated.

For Each cell In Range("RBARECT_LINE").Cells
If cell.Value <> "" Then
cell.Offset(0, 3).Select
Selection.Locked = False
cell.Offset(0, 4).Select
Selection.Locked = False
cell.Offset(0, 5).Select
Selection.Locked = False
cell.Offset(0, 6).Select
Selection.Locked = False
cell.Offset(0, 11).Select
Selection.Locked = False
cell.Offset(0, 13).Select
Selection.Locked = False
Else
cell.Offset(0, 3).Select
Selection.Locked = True
cell.Offset(0, 4).Select
Selection.Locked = True
cell.Offset(0, 5).Select
Selection.Locked = True
cell.Offset(0, 6).Select
Selection.Locked = True
cell.Offset(0, 11).Select
Selection.Locked = True
cell.Offset(0, 13).Select
Selection.Locked = True
End If
Next cell

 

[Andrew Poulsom]

You don't need to select the cells:

Sub T()
    For Each cell In Range("RBARECT_LINE").Cells
        cell.Offset(0, 3).Locked = cell.Value = ""
        cell.Offset(0, 4).Locked = cell.Value = ""
        cell.Offset(0, 5).Locked = cell.Value = ""
        cell.Offset(0, 6).Locked = cell.Value = ""
        cell.Offset(0, 11).Locked = cell.Value = ""
        cell.Offset(0, 13).Locked = cell.Value = ""
    Next cell
End Sub

 

[shg]

Or maybe

    For Each cell In Range("RBARECT_LINE").Cells
        cell.Range("D1:G1,L1,N1").Locked = IsEmpty(cell.Value)
    Next cell

 

[joey peanuts]

You don't need to select the cells:

Sub T()
    For Each cell In Range("RBARECT_LINE").Cells
        cell.Offset(0, 3).Locked = cell.Value = ""
        cell.Offset(0, 4).Locked = cell.Value = ""
        cell.Offset(0, 5).Locked = cell.Value = ""
        cell.Offset(0, 6).Locked = cell.Value = ""
        cell.Offset(0, 11).Locked = cell.Value = ""
        cell.Offset(0, 13).Locked = cell.Value = ""
    Next cell
End Sub

If the cell value of RBARECT_LINE is not blank, this doesn't seem to be unlocking the offset cell. Is there a way to tweak this. I tried duplicating these lines and substituting .locked with .unlocked, but no change in behavior.

 

[Andrew Poulsom]

If the cell isn't blank then:

cell.Value = ""

will be False, so the cell won't be locked.

 

[joey peanuts]

If the cell isn't blank then:

cell.Value = ""

will be False, so the cell won't be locked.

This code is in the OnActivate area. I have all cells set by default to be locked until it runs through this loop. Would that explain why some of the offset cells that should be unlocked aren't?

 

[joey peanuts]

This code is in the OnActivate area. I have all cells set by default to be locked until it runs through this loop. Would that explain why some of the offset cells that should be unlocked aren't?

I was using the wrong offset columns. Works perfect - thank you.