Yandaki Hücre Değerine Göre Hücre Kilitleme

[akhsahbaz]

Arkadaşlar forumda aradım fakat bulamadım. Hemen konuya giriyorum.

Örneğin, A1 hücresine "Liste" diye değer girdiğimizde A2 hücresinin kilitlenmesini istiyorum. Bunu Formül ile yapabilirmiyiz.

 

[Orion1]

Arkadaşlar forumda aradım fakat bulamadım. Hemen konuya giriyorum.

Örneğin, A1 hücresine "Liste" diye değer girdiğimizde A2 hücresinin kilitlenmesini istiyorum. Bunu Formül ile yapabilirmiyiz.

formülle yapamazsınız.
maro ile evet.

 

[akhsahbaz]

Sn.Orion2,

Bende formülle yapılamıyacağını tahmin ediyordum. Ama hocalarımız o kadar yaratıcı olabiliyorlarki bazen şaşırıyorum. Peki bunu makro ile yapa bilirmiyiz?

 

[Orion1]

Sn.Orion2,

Bende formülle yapılamıyacağını tahmin ediyordum. Ama hocalarımız o kadar yaratıcı olabiliyorlarki bazen şaşırıyorum. Peki bunu makro ile yapa bilirmiyiz?

Çalışma sayfasının kod bölümüne aşağıdaki kodları yapıştırın.
A1 hücresine Liste yazarsanız , A2 hücresi kilitlenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo son
ActiveSheet.Unprotect
Range("A1:A2").Locked = False
If Target.Value = "Liste" Then
    Range("A2").Locked = True
    ActiveSheet.Protect
End If
son:
End Sub

 

[akhsahbaz]

Sn.Orion2 kod çalışıyor fakat çevresindeki diğer hücreleride kilitliyor.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo son
ActiveSheet.Unprotect
[B][COLOR="Red"]cells.Locked = False[/COLOR][/B]
If Target.Value = "Liste" Then
    Range("A2").Locked = True
    ActiveSheet.Protect
End If
son:
End Sub

 

[akhsahbaz]

Sn.Orion2 elinize sağlık çok teşekkür ederim. Eğer zahmet olmazsa bir şe daha sormak istiyorum. Bunu sütuna uygularsak; Örneğin A sütunu "Liste" verisi girildiğinde aynı satıra denk gelen B sütunundaki hücreyi nasıl kilitleriz.

 

[Orion1]

Sn.Orion2 elinize sağlık çok teşekkür ederim. Eğer zahmet olmazsa bir şe daha sormak istiyorum. Bunu sütuna uygularsak; Örneğin A sütunu "Liste" verisi girildiğinde aynı satıra denk gelen B sütunundaki hücreyi nasıl kilitleriz.

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo son
ActiveSheet.Unprotect
If Target.Value = "Liste" Then
    Target.Offset(0, 1).Locked = True
    Else
    Target.Offset(0, 1).Locked = false
End If
son:
ActiveSheet.Protect
End Sub

 

[akhsahbaz]

Sn.Orion2 ilginiz ve yardımlarınız için çok teşekkür ederim. Benim için büyük bir yardım, forumdan yaralanan arkadaşlar için ise iyi bir ders oldu.

 

[Orion1]

Sn.Orion2 ilginiz ve yardımlarınız için çok teşekkür ederim. Benim için büyük bir yardım, forumdan yaralanan arkadaşlar için ise iyi bir ders oldu.

Rica ederim.
İyi çalışmalar.

 

[Levent Menteşoğlu]

Arkadaşlar forumda aradım fakat bulamadım. Hemen konuya giriyorum.

Örneğin, A1 hücresine "Liste" diye değer girdiğimizde A2 hücresinin kilitlenmesini istiyorum. Bunu Formül ile yapabilirmiyiz.

Sn Orion2 makro ile güzel bir çözüm sunmuş ancak küçük bir hatırlatma yapmak istiyorum. Sorunuza makro kullanmadan veri doğrulama ile de çözüm bulunabilir. Alternatif olarak ekte sunuyorum.

 

[akhsahbaz]

Sn.leventm,

Bende zaten formül ile yapmak istemiştim ama bir çözüm yolu bulamamıştım. Ama veri doğrulama ile aklıma hiç gelmemişti. Hakikaten süper bir fikir. Elinize emeğinize sağlık. Teşekkür ederim.

 

[hakanmemik]

sayın leventm ve diğer arkadaşar paylaşımlarınız ve öğretimleriniz için tşkler.

 

[ziya]

Sayın Menteşoğlu, rastgele gezerken cevabınızı okudum, teşekkür ederim. Benim gibi makro bilmeyenler için güzel bir paylaşım.