Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.

Uğraşmış didinmiş formüller yazmışsınız. yanlışlıkla yazdığınız formüllerin hücrelerden silinmesini engellemek istersiniz hergalde. Formül yazılı hücrelerin silinmesini engellemek için aşağıdaki kodları kullanabilirsiniz.

Sayfanın Kod Bölümüne;

Kod: Tümünü seç

Option Explicit

Private Sub Worksheet_Deactivate()
   Application.OnKey "{del}"
End Sub


Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.HasFormula Then
    Application.OnKey "{del}", "mesaj"
   Else
    Application.OnKey "{del}"
   End If
End Sub

ThisWorbook kod bölümüne;

Kod: Tümünü seç

Option Explicit

Modüle

Kod: Tümünü seç

Sub mesaj()
MsgBox " Silmek istediğiniz hücrelerde formül var. silemezsiniz.!"
End Sub