dolu satır koruma

[abdullah016]

Merhaba Arkadaşlar bir excel sayfasında her doldurduğum satırdan çıktıktan sınra o satır korumaya alınsın yani içi dolu olan bir satırın üstüne bilgi yazılmasın veya kayıt yaptığım zaman otomotikmen dolu satırlara koruma koysun. örenek dosyayı ekte gönderdim.Yardımlarınız için şimdiden çok teşekkür ederim.

Forumda aşağıdaki kodu buldum fakat sadece hücre koruma yapıyor ve bir girişten sonra tüm hücreleri kilitliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> 0 Then ActiveSheet.Protect "123"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect "123"
If Target = 0 Then ActiveSheet.Unprotect "123"
End Sub

 

[halit3]

bunu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
deg1 = WorksheetFunction.CountA(Rows(Target.Row))
If deg1 <> 0 Then ActiveSheet.Protect "123"
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect "123"
deg1 = WorksheetFunction.CountA(Rows(Target.Row))
If deg1 = 0 Then ActiveSheet.Unprotect "123"
End Sub

 

[abdullah016]

teşekkür ederim.
ilginiz için

 

[abdullah016]

...............