Sub LockRedCells()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Cells
        If cell.Interior.ColorIndex = 3 Then '3 is the color index for red
            cell.Locked = True
        End If
    Next cell
    ActiveSheet.Protect 'protect the sheet to enable cell locking
End Sub
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence