[Yardım]  Kritere göre hücre kilitleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kritere göre hücre kilitleme

İleti#1)  ozuberk » 13 Eyl 2017 14:30

Merhaba A1 hücresi dolu olduğunda A1:K1, A2 hücresi dolu olduğunda A2:K2, A5 hücresi dolu olduğunda A5:K5 vs. aralığının kilitlenmesi bu kodun A100 hücresine kadar devam etmesini nasıl sağlayabilirim.
Kullanıcı avatarı
ozuberk
Yeni Başlamış
 
Adı Soyadı:ozgur ozuberk
Kayıt: 14 Tem 2009 18:04
Konum: istanbul
Meslek: muhasebe
Yaş: 67
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Kritere göre hücre kilitleme

İleti#2)  askmadige34 » 13 Eyl 2017 15:11

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A1000]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "a"
If Target.Value <> "" Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Locked = True
End If
ActiveSheet.Protect "a"
End Sub
Kullanıcı avatarı
askmadige34
Site Dostu
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 37
İleti: 1070
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM

Cevap: Kritere göre hücre kilitleme

İleti#3)  ozuberk » 13 Eyl 2017 15:35

Cevap için teşekkür ederim. Sizin yazmış olduğunuz kodda A1 veri girdiğimde tüm sayfa kilitleniyor. Benim yapmak istediğim A1 dolu ise A1:K1 aralığının kitlenmesi diğer yerlerin veri girişine açık olması.

A1 dolu ise A1:K1 aralığının kitlenmesi
A2 dolu ise A2:K2 aralığının kitlenmemesi
A3 dolu ise A3:K3 aralığının kitlenmesi
Kullanıcı avatarı
ozuberk
Yeni Başlamış
 
Adı Soyadı:ozgur ozuberk
Kayıt: 14 Tem 2009 18:04
Konum: istanbul
Meslek: muhasebe
Yaş: 67
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Kritere göre hücre kilitleme

İleti#4)  askmadige34 » 13 Eyl 2017 15:40

Bende dediğiniz gibi çalışıyor. A16 dan aşağısı boş ve a16 ye değer girince a16 kilitleniyor. a1-a15 zaten dolu idi ve önceden kilitli idi.
Siz öncelikle Sayfa korumasını kaldırıp tüm hücrelerin kilitini açık yapın. Sonra çalıştırın.
Kullanıcı avatarı
askmadige34
Site Dostu
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 37
İleti: 1070
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
Excel Logo XML Oluşturucu

Logo Object Designer ile Uyarlama

Cevap: Kritere göre hücre kilitleme

İleti#5)  ozuberk » 13 Eyl 2017 16:22

Sayfa korumasını kaldırınca çalıştı. Bu koda kilitli sayfaları silmek istenildiğinde çıkan uyarı yerine kendim yazacağım mesaj eklenebilir mi?
Kullanıcı avatarı
ozuberk
Yeni Başlamış
 
Adı Soyadı:ozgur ozuberk
Kayıt: 14 Tem 2009 18:04
Konum: istanbul
Meslek: muhasebe
Yaş: 67
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe