one line of code needed

[plost33]

I need a line of code that says: if background color of a cell in range E18:E3000 = 6 then remove protection/unlock that entire row.

 

[xld]

Activesheet.Unprotect "password"
For Each cell In Range("E18:E3000")

If cell.Interior.ColorIndex = 6 Then

cell.EntireRow.Locked = False
End If
Next cell
Activesheet.Protect "password"

 

[plost33]

thanks works great. can you add in a line that says if backgound color is not =6 then row is locked/protected.

 

[plost33]

any ideas?

 

[mikerickson]

Activesheet.Unprotect "password"
For Each cell In Range("E18:E3000")
    With cell
        .EntireRow.Locked = (.Interior.ColorIndex <> 6)
    End With
Next cell
Activesheet.Protect "password"

 

[xld]

Patience is not one of your virtues is it?

Activesheet.Unprotect "password"
For Each cell In Range("E18:E3000")

cell.EntireRow.Locked = cell.Interior.ColorIndex <> 6
Next cell
Activesheet.Protect "password"

 

[plost33]

can i add: if backgroud color is not = 6 then lock/protect the row????

 

[plost33]

Works great thanks so much.