(20/06/2019, 17:43)halily yazdı: iyi çalışmalar)

üstat kolay gelsin bir şey sorabilir miyim?

ActiveSheet.Protection.AllowEditRanges(1).Delete
alıntıdır.

bu konu ile ilgili bir soru sorabilir miyim? yine bu kodu kullanmak için. yada bu işlemi yapacak kod ney ise ?
ben şimdi sayfa koruması ile şifreliyorum belirli alanlarda değişiklik yapılmaması için.
J sutununa izin vermek istiyorum ama izin vereceğim satırlar
J4, J6, J8, .... J10002 e kadar bu satırlar kullanıma izin verilecek (Kullanıcıların Aralıkları Düzenlemesine İzin ver işlevi ile) diğerleri şifrelenecek.
acaba bunlar için nasıl yardımcı olabilirsiniz ???

yeni konu açarak sormanız daha uygun olur o nedenle son mesajınızı sorular bölümüne taşıyorum
çalışmanızın son halini de eklerseniz -en azından sadece ilgili sayfayı- çözüme ulaşmak daha kolay olur
kolay gelsin.

sayfa korumasını aktifleştirmeden ÖNCE aşağıdaki kodu çalıştırırsanız J4 ten J10002 kadarki ttüm çift hücrelerin kilidi kaldırılır
sayfa koruması aktif olsa bile belirttiğiniz hücrelerin koruması olmaz

(06/07/2019, 17:40)halily yazdı: sayfa korumasını aktifleştirmeden ÖNCE aşağıdaki kodu çalıştırırsanız J4 ten J10002 kadarki ttüm çift hücrelerin kilidi kaldırılır
sayfa koruması aktif olsa bile belirttiğiniz hücrelerin koruması olmaz

Kod:

Sub BtnKilitle()
For x = 4 To 10002 Step 2
ActiveSheet.Range("j" & x).Locked = False
Next
MsgBox ("bitti")
End Sub

https://s2.dosya.tc/server10/xfg56o/ANKE....xlsm.html
dosyanın örneğini yukarıdaki linkten ulaşabilirsiniz.
ben sayfa korumasını yaptığım zaman izin veriyorum yaa hücrelere onları tek tek seçip uğraşmamak için bir kod sormuştum sizin verdiğiniz kod sayfa korumasını kaldırıyor. ben sınırlı hücrelerdeki verilerin değişimini istemiyorum. anlatabildim umarım.

---

(06/07/2019, 17:40)halily yazdı: sayfa korumasını aktifleştirmeden ÖNCE aşağıdaki kodu çalıştırırsanız J4 ten J10002 kadarki ttüm çift hücrelerin kilidi kaldırılır
sayfa koruması aktif olsa bile belirttiğiniz hücrelerin koruması olmaz

Kod:

Sub BtnKilitle()
For x = 4 To 10002 Step 2
ActiveSheet.Range("j" & x).Locked = False
Next
MsgBox ("bitti")
End Sub

https://s2.dosya.tc/server10/xfg56o/ANKE....xlsm.html
dosyanın örneğini yukarıdaki linkten ulaşabilirsiniz.
ben sayfa korumasını yaptığım zaman izin veriyorum yaa hücrelere onları tek tek seçip uğraşmamak için bir kod sormuştum sizin verdiğiniz kod sayfa korumasını kaldırıyor. ben sınırlı hücrelerdeki verilerin değişimini istemiyorum. anlatabildim umarım.

benim verdiğim kod sayfa korumasını kaldırmıyor
excelde sayfa koruması kilitli hücreleri korur, benim tek yaptığım "j" sütunundaki çift hücrelerin kilidini kaldırmak.
sayfa korumaya alınmadan önce "J çift" hücrelerinin kilidi kaldırılıyor
sayfa korumasını daha sonra siz koyuyorsunuz

---

az önce denedim -sadece "J" sütunu için-
kodu "buton tıklama" olayına ekledim
kodu çalıştırdım
sayfayı korumaya aldım
çitt "J"ler değiştirilebiliyorken
tek "J"ler korumalı

dilerim işinize yarar
buton ekleyip kodu ona yazdım