Seçilen hücreleri korumak

[yavuz829]

Merhaba Arkadaşlar.
Seçtiğim hücreleri kod ile koruma altına almak istiyorum. Sayfadaki kilit açık olsa bile seçili hücrelerdeki veriler silinmesin.

Örneğin:
* Satır ve sütunlar silinmesin
*B7:E25 hücreleri
*H10:H20 Hücresi
* L15 Hücresi
*P5 Hücresi
*M7:N13 hücreleri
Hücrelerin içindeki veriler sayfa kilidi açık olsa bile hiç bir şekilde silinmesin. Uyarı versin
Bu konularda yardımınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu şekilde formüllerinizi koruyabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then
Target.Offset(, 1).Activate
End If
End Sub

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık çok güzel oldu formüllerin silinmesi engellenmiş.
Hocam sayfa koruması açıkken satır ve sütunlerin silinmesini engelleyen bir kod var mı.

 

[Seyit Tiken]

Bu kod biraz zorlaştırır, Çalışma Kitabına yapıştırıp fareyle deneyiniz.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

[yavuz829]

Hocam kodu ekledim sayfada koruma yoksa satır ve sütunlerin silinmesine izin veriyor.

 

[yavuz829]

Bu şekilde formüllerinizi koruyabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then
Target.Offset(, 1).Activate
End If
End Sub

Hocam yazdığınız kod ile tek hücredeki kodu seçtiğim zaman silmemi engelliyor. Çoklu hücre seçtiğim zaman hücrelerdeki formülleri silmeme izin veriyor. Çoklu hücreleri de silmeme izin vermese çok iyi olur. Saygılar