DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
formülle yapamazsınız.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.
Çalışma sayfasının kod bölümüne aşağıdaki kodları yapıştırın.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?
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
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
Ekli dosyayı inceleyiniz.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.
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
Rica ederim.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.
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.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.