Sub LockRedCells()
    Dim currentSheet As Worksheet
    Dim currentCell As Range
    
    ' получаем ссылку на текущий лист
    Set currentSheet = ActiveSheet
    
    ' проходим по всем ячейкам на текущем листе
    For Each currentCell In currentSheet.UsedRange.Cells
        ' проверяем, является ли цвет фона ячейки красным
        If currentCell.Interior.Color = vbRed Then
            ' если да, то блокируем ячейку
            currentCell.Locked = True
        End If
    Next currentCell
    
    ' защищаем лист, чтобы заблокировать изменение ячеек
    currentSheet.Protect
    
    ' устанавливаем свойство Locked для всего листа, чтобы разрешить только чтение
    currentSheet.EnableSelection = xlUnlockedCells
    currentSheet.EnableAutoFilter = True
    currentSheet.EnableOutlining = True
    currentSheet.EnablePivotTable = True
End Sub
spam lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor creativity violence