Onay Kutusu ile farklı sayfadaki hücreleri kilitleme

[Sa.NaL]

Merhaba excel uzmanı arkadaşlardan ricam.ekde gönderdiğim dosyada kapak giriş formu sayfasında özel işlemler olan yıkama,kaynak,helikoil,kapak testi yanındaki işarete tıklayınca fiyat tarifesi sayfasındaki C16,C17,C18,C19 Hücrelerinin kilidini kaldırarak içine sayı girebileyim.girdiğim sayı zaten şuan toplamaya yansıyor.ama işareti kaldırdığımda içine yazdığım sayı silinsin ve hücre kilitlensin toplamaya herhangi bir etkisi olmasın excelde böyle bir örnek yapmak mümkünmü yardımlarını bekliyorum.Şimdiden ilginiz için tşkler.Herşer Türkiye İçin....

 

[Ayhan Ercan]

Merhaba Sn Sa.NaL

İstediğiniz Kodlar:

With Sheets(2)
        .Unprotect
            For i = 16 To 19
                If .Range("A" & i + 156) = True Then
                    .Range("C" & i).Locked = False
                Else
                    .Range("C" & i).Locked = True
                End If
            Next
        .Protect
End With

 

[Sa.NaL]

merhaba ayhan abi şu komut satırında .Range("C" & i).Locked = True
birtek C16 ya kilit vurmuyorki abi sayfaya kilit vuruyor benim bütün formülleri etkiliyor.Safya korumasını onay kutusu işaretli iken kaldırmam gerekiyor 2 .sayfanın yoksa başka seçenekleri seçemiyorum koruma çıkıyor.Ne yapmam gerekiyor

 

[Ayhan Ercan]

Sn Sa.NaL

Siz C16,C17,C18,C19 hücrelerini kilitlesin istemedinizmi?

Bu hücreleri kilitleyip Sayfa koruması yapmamak hiç bir işe yaramayacaktır.

Sayfa Koruması yapmadan hücre kilitlemenin hiç bir faydası olmaz ki.

Sadece bahsettiğiniz hücrelerin kilitli olmasını istiyorsanız, bütün hücrelerin kilitlerini önce kaldırmanız gerekir.

(Tüm Hücreleri Seç,
Hücre biçimlendir > Koruma - "Kilitli" Onay kutucuğunu temizle)

 

[Sa.NaL]

Çok tşk ederim