Formülü gizleme ve silinmesini engelleme?

[dejavuxer]

Merhaba üstadlar, benim başım yapmış olduğum excel dosyasındaki diğer personel tarafından sürekli hata verip durması,

Problemin kaynağı aslında dosya çalışıyor fakat bizim işgüzar hücrede ne yazdığına bakmadan silmelerinden dolayı bir türlü çalışmıyor sorunuçözermisiniz demeleri.

Ben biraz araştırma yaptım fakat istediğim olmadı, aşağıdaki kodu buldum bu kod sadece dizi formülllerin silnmmemesini sağlıyor.

Değerli üstadlarım bana bunu kod ile yapacak formülleri sildirtmeyecek bir kod yazarmısınız. İlginizden dolayı teşekkürler...

*********Sayfanın kod bölümüne***************************
Option Explicit

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

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*************************
Option Explicit
'*********bunu da modüle *********************************
Sub mesaj()
MsgBox " Formül silmek yasak kardeşim"
End Sub

 

[tahsinanarat]

Sayfanın kod bölümüne;

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

Modüle

Option Explicit
'*********bunu da modüle *********************************
Sub mesaj()
MsgBox " Formül silmek yasak kardeşim"
End Sub

 

[ÖmerBey]

Koda ne gerek var ki hücreyi kilitli ve gizli yapıp sayfa koruması uygulayabilirsiniz.
Ayrıca verdiğiniz kod sadece delete tuşu ile hücre dışından silmeye kalktığın zaman uyarı veriyor backspace tuşu ile ya da hücreye girerek silmek mümkün

 

[dejavuxer]

Koda ne gerek var ki hücreyi kilitli ve gizli yapıp sayfa koruması uygulayabilirsiniz.
Ayrıca verdiğiniz kod sadece delete tuşu ile hücre dışından silmeye kalktığın zaman uyarı veriyor backspace tuşu ile ya da hücreye girerek silmek mümkün

Evet haklısınız sayfayıda korumayı denedim, ondan sonra da bu korumalı diyor, bunun korumasını kaldır gibi söylemlerin ardı arkası kesilmiyor....