(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.