Veri girilen hücre otomatik kilitlensin..

[acolkesen1]

İyi akşamlar. Başkalarının da kullanadığı çalışma kitabında sayfamdaki verilerin yanlışlıkla ben veya başkaları tarafından silinmesini önlemek amacıyla, sayfa korumalı halde iken kiliti açılmış hücrelere veri girirlip başka hücreye geçildiğinde veya bir alt satıra geçildiğinde veri girilen satır ya da hücre ( her ikisi de olabilir) kendiliğinden kilitlensin.. İlgilenen arkadaşlara teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

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

 

[acolkesen1]

İyi akşamlar Değerli Evren Gizlen ,yazdığınız kodu çalışma sayfasının kod sayfasına yapıştırdım ama belirlenen hücreler arasında çalışmadı. Eklenmiş dosyaya tıkladığımda ise ingilizce bir sayfaya link veriyor. Kısacası yapamadım. Acaba gönderdiğim ekli dosya üzerinde uygulayabilir misiniz?

 

[Orion1]

İyi akşamlar Değerli Evren Gizlen ,yazdığınız kodu çalışma sayfasının kod sayfasına yapıştırdım ama belirlenen hücreler arasında çalışmadı. Eklenmiş dosyaya tıkladığımda ise ingilizce bir sayfaya link veriyor. Kısacası yapamadım. Acaba gönderdiğim ekli dosya üzerinde uygulayabilir misiniz?

2 numaralı mesajda eklediğim dosyayı indiriniz.Çalıştığını göreceksiniz.
Dosya indirmede bir problem yok.Denedim.

 

[ahmett46]

Evren Bey,
Kilitleme işi nasıl oluyor? kodu başka bir excel dosyasında denedim olmuyor.

 

[Orion1]

Evren Bey,
Kilitleme işi nasıl oluyor? kodu başka bir excel dosyasında denedim olmuyor.

O excel dosyasını bana yollayın bakalım nasıl olmuyormuş görelim.

 

[acolkesen1]

Değerli Evren, bağışlayın ama ben mi beceremiyorum anlayamadım. Gönderdiğiniz dosyayı açtığımda eketeki gibi bir dosya açaılıyor. Bir bakar mısınız?

 

[Orion1]

O dosyada kod yoktu.Acaba başka yeremi yazdım kodu.
Ekli dosyayı inceleyiniz.
Yazmışıkta bir kod eksik yazmışık.Korumalı sayfanın korumasını kaldırmayı unutmuşum.

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

 

[acolkesen1]

Değerli Evren Gizlen ilginize çok teşekkür ederim. Gönderdiğiniz kodlar çalışıyor.Elinize sağlık.Tekrar teşekkür eder iyi akşamlar dilerim.

 

[Orion1]

Değerli Evren Gizlen ilginize çok teşekkür ederim. Gönderdiğiniz kodlar çalışıyor.Elinize sağlık.Tekrar teşekkür eder iyi akşamlar dilerim.

Rica ederim.
İyi akşamlar.

 

[honestman]

Merhaba,



Çalışan bir dosya gönderebilir misiniz? Link ölmüş...

 

[nane]

Merhabalar,
Evet linkte dosya çıkmıyor

 

[nane]

O dosyada kod yoktu.Acaba başka yeremi yazdım kodu.
Ekli dosyayı inceleyiniz.
Yazmışıkta bir kod eksik yazmışık.Korumalı sayfanın korumasını kaldırmayı unutmuşum.

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

Evren bey,
Dosyayı indiremedim ama verdiğiniz kodu bir sayfada denedim burada veri girildikten sonra kilitleniyor fakat bir alt satırdaki yada sütündaki boş hücreleri de kilitliyor.
Burada boş henüz veri girilmemiş hücreler kilitlenmemeli, birde kaydet tuşuna basıldıktan sonra bu işlemi yapsa yada veri girişinden 3 dakika sonra olsa sanırım daha iyi olabilir. Bu arada haralı girişler düzeltilebilir. diye düşünüyorum.
Eğer vaktiniz olur da tekrardan bir inceleyebilirseniz sevinirim.
Teşekkürler
Yb®

 

[Orion1]

Evren bey,
Dosyayı indiremedim ama verdiğiniz kodu bir sayfada denedim burada veri girildikten sonra kilitleniyor fakat bir alt satırdaki yada sütündaki boş hücreleri de kilitliyor.
Burada boş henüz veri girilmemiş hücreler kilitlenmemeli, birde kaydet tuşuna basıldıktan sonra bu işlemi yapsa yada veri girişinden 3 dakika sonra olsa sanırım daha iyi olabilir. Bu arada haralı girişler düzeltilebilir. diye düşünüyorum.
Eğer vaktiniz olur da tekrardan bir inceleyebilirseniz sevinirim.
Teşekkürler
Yb®

Baştan manuel olarak tüm hücrelerin kilitini açın.