Я могу попробовать написать код на VBA для вас. Вот один из возможных вариантов:

```vba
Sub LockRedCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    'Set the worksheet to the current one
    Set ws = ActiveSheet
    
    'Unprotect the worksheet with no password
    ws.Unprotect
    
    'Set the range to all the cells in the worksheet
    Set rng = ws.Cells
    
    'Loop through each cell in the range
    For Each cell In rng
        'Check if the cell has a red interior color
        If cell.Interior.Color = vbRed Then
            'Lock the cell
            cell.Locked = True
        End If
    Next cell
    
    'Protect the worksheet with no password
    ws.Protect
End Sub
```
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence