Sayfayı kitlemeden belirli hücredeki formülleri koruma

[saitbeyoglu]

Arkadaşlar herkese merhaba.

Arayıp da bulamadığım bir sorunu çözdüm ve belki birilerine faydası olur diye burada da paylaşmak istiyorum.

Korunmasını istediğimiz formüllü hücreleri korumak, diğerlerini açık tutmak için istediğimiz hücrenin korumasın açıyor sonra da sayfaya koruma koyuyoruz.
Ancak korumalı sayfada veri süz çalışmıyor.

Ben de sayfa koruma yapmadan makro ile istediğim hücrelere veri girişi yaptırmıyorum. Kod aşağıdadır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:Z5,E:E,H:H]) Is Nothing Then Exit Sub
Range("A6").Select
MsgBox ("Bu Hücrede Formül Bulunduğundan Veri Girişi Yapılamaz, Lütfen Doğru Kutucuğu Seçin"), vbCritical
End Sub

Bu kod E ve H Sütunu ile A1:Z5 arasındaki hücrelere tıklandığında uyarı veriyor ve direk A6 hücresine atıyor. Hiçbir şekilde verilen aralıkta oynama yapılamıyor. istenildiği gibi veri süz işlemi de yapılabiliyor.

Herkese iyi çalışmalar.

 

[EGULERYUZ]

teşekkürler çok faydalı bir kod olmuş..