Запрет удаления информации

[Viper6812]

Добрый день. Можно ли сделать, что бы информацию в ячейки вносить было можно, а удалить после этого нельзя?

[Aleksandr H.]

Накопление текста в ячейке? Зачем?

[Viper6812]

Желание начальства получать отчеты от удаленной точки и что бы они не могли исправить задним числом.

[Aleksandr H.]

Private Sub Worksheet_Change(ByVal Target As Range)
    'если изменили более одной ячейки - выход
    If Target.Count > 1 Then Exit Sub
    Dim vOldVal, vNowVal
    vNowVal = Target.Value 'запоминаем введенное значение
    With Application
        .EnableEvents = 0 'отключаем отслеживание событий(чтобы не зациклить)
        .Undo 'отменяем введенные изменения
        vOldVal = Target.Value 'запоминаем новое значение
        Target.Value = vOldVal & " " & vNowVal 'если надо вернуть значение
        .EnableEvents = 1 'возвращаем отслеживание событий
    End With
    
End Sub