Skip to main content

AccessTr.neT


Korumalı sayfada izinli hücreler

Korumalı sayfada izinli hücreler

Çözüldü #1
(20/06/2019 17:43)halily Adlı Kullanıcıdan Alıntı: iyi çalışmalar)

üstat kolay gelsin bir şey sorabilir miyim?

[b]ActiveSheet.Protection.AllowEditRanges(1).Delete
alıntıdır.
[/b]

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 [b](Kullanıcıların Aralıkları Düzenlemesine İzin ver işlevi ile)[/b] diğerleri şifrelenecek.
acaba bunlar için nasıl yardımcı olabilirsiniz ???
Cevapla
Çözüldü #2
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.
Cevapla
#3
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
Cevapla
#4
(06/07/2019 17:40)halily Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#5
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ı
Cevapla
#6
dilerim işinize yarar
buton ekleyip kodu ona yazdım
.rar ANKET-CALISMA-makrolu-2_hy.rar (Dosya Boyutu: 1,14 MB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da