Kod:
Private Sub Worksheet_Deactivate()
Application.OnKey "{del}"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
Application.OnKey "{del}", ""
Else
Application.OnKey "{del}"
End If
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
[*]Üstteki kodu yapıştırın.
