Excel VBA - запретить изменение ячейки при редактировании

Question

Я хотел бы запретить редактирование ячейки, поскольку мне нужно сохранить формулу в ней. Проблема в том, что я хочу скопировать вставки большой диапазон значений из другой книги в мой лист, а целевой диапазон для вставки включает некоторые ячейки, которые не должны меняться. Таким образом, простая функция блокировки не будет работать, так как это помешает мне выполнить эту операцию за один раз.

Я попытался использовать код, в котором ячейка меняет свою формулу после изменения ячейки, однако это дает бесконечный цикл. См. Упрощенный пример ниже:

Private Sub Worksheet_Change(ByVal Target As Range) 


If Not Intersect(Target, Range("F28")) Is Nothing Then 
    Range("F28").Formula = "=if(E28=0,0,G28/E28)" 
End If 

End Sub 

Большое спасибо за вашу помощь, высоко оценили.

Редактировать: Автоматическое решение, которое будет передаваться из этой другой книги, не будет работать, поскольку я получаю эти файлы в различных форматах и ​​именах книг.

Answer 1

Если ваша проблема бесконечная петля, чем здесь, то это довольно распространенное решение проблемы. Вам просто нужно отключить события на некоторое время, а затем переключить их обратно. Ваш код может выглядеть так:

Private Sub Worksheet_Change(ByVal Target As Range) 
    'turns off events 
    Application.EnableEvents = False 
If Not Intersect(Target, Range("F28")) Is Nothing Then 
    Range("F28").Formula = "=if(E28=0,0,G28/E28)" 
End If 
    'turns on events back 
    Application.EnableEvents = True 
End Sub 

Answer 2

Вы должны сделать Sub, который вводит формулы «резидент». Просто позвоните этому югу после вставки новых значений.