+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Korumalı sayfada izinli hücreler (/konu-korumali-sayfada-izinli-hucreler.html)
Sayfalar:
1
2
Korumalı sayfada izinli hücreler - comp_wolf - 06/07/2019
(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 ???
Cvp: Tarih Ve Saat Atama ??? - berduş - 06/07/2019
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.
Cvp: Korumalı sayfada izinli hücreler - berduş - 06/07/2019
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 SubRE: Korumalı sayfada izinli hücreler - comp_wolf - 08/07/2019
(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ırhttps://s2.dosya.tc/server10/xfg56o/ANKET-CALISMA-makrolu-2-deneme.xlsm.html
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
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ırhttps://s2.dosya.tc/server10/xfg56o/ANKET-CALISMA-makrolu-2-deneme.xlsm.html
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
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.
Cvp: Korumalı sayfada izinli hücreler - berduş - 08/07/2019
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ı
Cvp: Korumalı sayfada izinli hücreler - berduş - 08/07/2019
dilerim işinize yarar
buton ekleyip kodu ona yazdım
ANKET-CALISMA-makrolu-2_hy.rar
(Dosya Boyutu: 1,14 MB | İndirme Sayısı: 2)