Dolu hücrelerin silinmesini engellemek.

[Leoncio]

Merhaba;

a8;f8 aralığında günlük girişi yapılan bir tablom var.
Yıl sonuna kadar her gün a8:f..... satır satır giriş yapılıyor.
Şu andaki aralık a8:f658 arası. Daha önce girişi yapılanların silinmesini engellemek istiyorum. Diğer bir ifadeyle girişi yapıldıktan sonra korumaya alınsın. Konu ile ilgili görüşlerinizi bekliyorum.

 

[uzmanamele]

merhaba

çözümü değil çözüm yolunu önereyim. siz yapmaya çalışın olmazsa bir arkadaşımız el atar.

a8:f(son satır) aralığını dinamik alan olarak ad tanımlaması yapın, veri girildikçe alanınız büyür.
kodlarınızın içinde bu alanı kullanarak korumaya alırsınız.
yani diyelimki 50. satıra kadar dolu. 51. satır korumasız olacaktır, veri girişi bittiğinde alanınız a8:f51 olur ve hemen korumaya alınır, 52. satıra veri girişine izin verir.

 

[Leoncio]

Daha önceki çalışmalarımı kurcaladım.. Aşağıdaki kodda hemen hemen iş görüyor gibi..

Sub dene()
Dim hcr As Range
ActiveSheet.Unprotect
For Each hcr In Range("A1:f1500")
If IsEmpty(hcr) Then
hcr.Locked = False
Else
hcr.Locked = True
End If
Next
ActiveSheet.Protect


End Sub

 

[Leoncio]

Tekrar merhaba;
Aşağıdaki kodlar ile işlemimi sonuçlandırabiliyorum. Kodlarda ne gibi revize yapmak gerekir ki;

a- Korumaya şifre verilebilsin,
b- Alan f1500 olarak tanımlanmış ama gün ve gün girişler olduğundan nasıl bir döngü kurulabilir.


Sub dene()
Dim hcr As Range
ActiveSheet.Unprotect
For Each hcr In Range("A1:f1500")
If IsEmpty(hcr) Then
hcr.Locked = False
Else
hcr.Locked = True
End If
Next
ActiveSheet.Protect
End Sub

 

[leumruk]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:f1500")) Is Nothing Then Exit Sub
Activesheet.Unprotect 12345
If Target = "" Then Target.Locked = False
If Target <> "" Then Target.Locked = True
Activesheet.Protect 12345
End Sub

 

[Leoncio]

Teşekkürler.

 

[leumruk]

Teşekkürler.

Rica ederim.