Belirli Satırları Engellemek

[mu_eren]

Merhabalar.

J:J sütünunda "ÇIKTI" ibaresi var ise; A:J sütunlarına hiçbir şekilde müdahale edilmesi, değiştirilmesi ve silinmesi mümkün olmasın. Ayrıca uyarı da verebilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a7:j20000]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Range("a7:j20000").Locked = False
For sat = 7 To 20000
If Cells(sat, "J") = "ÇIKTI" Then
Range(Cells(sat, "a"), Cells(sat, "j")).Locked = True
Else
Range(Cells(sat, "a"), Cells(sat, "j")).Locked = False
End If
Next
ActiveSheet.Protect
End Sub

Forumda yaptığım aramalardan sonra işimi görecek olan kodları buldum fakat hücrelere veri girişi yaparken kum saati çıkıyor ve 5 10 saniye bekletiyor. Ve sayfa korumasını kaldır yaptığımda o hücre değiştirilebiliyor. Ayrıca çalışan saat çalışmıyor.
Çözümü var mıdır acaba?

 

[Muzaffer Ali]

Excel sayfanızın adını sağ tıklatıp "Kod Görüntüle" seçin
Açılan kod editörüne aşağıdaki kodları kopyalayın.

Option Explicit
Option Compare Text

Dim Veri As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 10 And Target.Value = "çıktı" Then Exit Sub
    If Cells(Target.Row, 10).Text = "çıktı" And Veri <> Target Then
        MsgBox "'J' sütununda 'Çıktı' yazıyor, bu alana veri girişi yapamazsınız."
        Target = Veri
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Veri = Target
End Sub

 

[mu_eren]

Ben beceremedim galiba dosyayı ekliyorum bakabilir misiniz.

 

[mu_eren]

Yardımcı olabilirmisiniz ?

 

[mu_eren]

Yardım

Tekrar yardımlarınızı rica edeceğim.

Dosyamda gün tarihi alınıyor giriş saati giriliyor seans giriliyor ve en son "j" sütunu ÇIKTI olduğunda a:j sütünlarında hiçbir şekilde işlem yapılmamasın istiyorum. Ekteki dosyada bu işlem gerçekleşiyor fakat bu seferde sürekli aktif olan saat çalışmıyor.

 

[mu_eren]

Yardımcı olabilirmisiniz ?

 

[Muzaffer Ali]

Dosyanızın kodlarında "Worksheet_Change" olayı bulunuyor.
Yani Excel sayfasının herhangi bir hücresinde değişim olduğunda çalışan bir olaydır bu.
Eğer siz bir hücrede sürekli saat çalışsın isterseniz her saniye hücre içeriği değişeceğinden "Worksheet_Change" olayı da çalışacaktır.
Bu olayın her saniye tekrar tekrar çalışması ileride donmalara sebebiyet verebilir ayrıca dosyanızın verimini düşürebilir.

Size tavsiyem saati kullanmayın.

 

[mu_eren]

Saati kullanmak zorundayız. Çünkü saat ile süre takibi yapılıyor süresi dolan kişiler uyarılıyor vs. o yüzden saat önemli. Verileri her ay sıfırlıyorum yani fazla kayıt olmuyor sayfada.