Excel'de Formüllü Hücrelerde "Delete" İşlevini Engellemek

Merhaba ,

Çoğumuzun başına gelmiştir, Formüllü bir excel tablosu yapar ve bu çalışmanın üretimde rutin kullanılmasını isteriz ama ister istemez arkadaşlar formülleri bozduğundan istediğimiz verileri alamayız.İşte buna bir nebze çözüm olması adına aşağıdaki makroyu kullanabiliriz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim oRange As Range Application.EnableEvents = False On Error GoTo Fehler: If Target.Cells.Count = 1 Then If Target.HasFormula Then Application.OnKey "{del}", "" Else Application.OnKey "{del}" End If Else Set oRange = Target.SpecialCells(xlCellTypeFormulas) Application.OnKey "{del}", "" End If Aufraeumen: Application.EnableEvents = True Exit Sub Fehler: Application.OnKey "{del}" Resume Aufraeumen End Sub