Formüllerin silinmesini engellemek. - Makro-VBA

ExcelTürk

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

huseyincoban · **Kayıt:** 29 May 2010, 09:18

Paylaşımı gördüğüm anda, her tablo için gerekli böyle bir işlem diye düşündüm.
Tabloma uygulattım, ancak yinede formüllü hücrelerin silinmesine izin verdi.

ExcelTürk

Sayın huseyincoban bir yerde yanlış yapmış olmalısınız ya da yanlış anladınız. Formül yazılan hücrelerin silinmesine izin vermez. Eğer siz girdiğiniz bir veriyi siliyorsanız ona engel olmaz. A1 deki veriyi ya da B1 deki veriyi silebilirsiniz. Ben kodları denedim bir sıkıntı yok. C1 Hücresine A1*B1 formülünü yazdım silmek istediğimde silemezsiniz mesajını veriyor. İşte resmi.

huseyincoban · **Kayıt:** 29 May 2010, 09:18

Sy ExcelTürk, şimdi tekrar denedim.
Uygulamada bir hatam yok. Ancak şöyle birşey dikkatimi çekti.

Örnek olarak hücrelere sizin gibi basit bir çarpma işlemi formülü uygulattım. Silmesine izin vermedi.
Ancak eğer formülü olan hücrelerde çalışmadı.

İyi akşamlar.

Kimler çevrimiçi