Makroyla korunan sayfada kilitli olmayan hücrenin düzenlenmesi

[okurt7]

Merhabalar,
makro ile sayfa kaydetme öncesinde bazı hücrelere veri girişini engelliyorum.
bunu da bazı hücreleri kilitleyip ardından sayfayı koru komutuyla yaptım.
fakat kilitli olmayan diğer dolu hücreler mesela (c15)'e çift tıklayıp veri eklemek istediğimde daha önce yazılan veriler kayboluyor.
ekteki dosyada da durumu anlatmaya çalıştım.
konuyu çözebilecek üstatlarımızdan yardım bekliyorum.
şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne uygulayıp, deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "123"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect "123"
End Sub

 

[okurt7]

Sayfa kod bölümüne uygulayıp, deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "123"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect "123"
End Sub

Ziya bey,
cevabınız için çok teşekkür ederim.
fakat izninizle ikince kodunuza sayfa korunduktan sonra filtre ve biçimlendirme işlemleri yapılabilmesi için bazı eklemeler yaptım.
ancak;
"Selection.AutoFilter Field:=3 " kısmında program hata veriyor.
korunmuş bir sayfada böyle bir işlem yapamazsınız gibisinden bir şeyler yazıyor.
Buna bağlı olarak mı bilmem dosyayı tekrar kapatıp açtığımda sayfa koruması kalkmıştı.
acaba buna bir çözüm getirebilir misiniz ?

kod aşağıdaki gibi

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A2:g2").Select
Selection.AutoFilter Field:=3

ActiveSheet.Protect "123", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables _
:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub