Ana sayfada belirli aralığı silmeyi engelleme

[ASLAN7410]

Merhaba hayırlı günler.

Arkadaşlarla birlikte ortak kullandığımız bir excel dosyam var,
bu dosyada 5 ile 55 satırlarından bazılarını sildiklerinden programda hata oluşuyor.

Ana sayfada 5 ile 55 satır aralığını silmeyi engelleyebilir miyiz?

Yardımcı olur musunuz?

 

[hamitcan]

Sayfayı Koruma altına alın. Sadece o aralıktaki kısmı kilitlersiniz, diğer tarafları açık bırakırsınız.

 

[ASLAN7410]

Sayın Hamit Bey, ilginiz için çok teşekkür ediyorum, benim dediğim gibi yapılabilir mi?

 

[turist]

VBA editörde, Çalışma sayfanızın sayfa kodu kısmına:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo dur
    Application.EnableEvents = False
    If Not Intersect(Target, Range("[B][SIZE="4"][COLOR="Red"]A5:Z55[/COLOR][/SIZE][/B]")) Is Nothing Then
        If Target.Value = "" Then Application.Undo
    End If
devam:
    Application.EnableEvents = True
    Exit Sub
dur:
    MsgBox Err.Description
    Resume devam
End Sub

şeklinde uygulayın.
Kodlarda yer alan A5:Z55 hücre aralığını belirleyeceğiniz alan için uygulayın.

 

[ASLAN7410]

Sayın turist ilginiz için çok teşekkür ediyorum, A sütunun solundaki sayılardan satırlar seçilince siliyor, ayrıca hücreler seçildiğinde de siliniyor.

 

[turist]

Private Sub Worksheet_Change(ByVal Target As Range)
     On Error GoTo dur
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A5:Z55")) Is Nothing Then
[B][COLOR="Red"]        If Target.Count > 0 Then Application.Undo[/COLOR][/B]
        If Target.Value = "" Then Application.Undo
    End If
devam:
    Application.EnableEvents = True
    Exit Sub
dur:
    MsgBox Err.Description
    Resume devam
End Sub

 

[ASLAN7410]

Sayın turist çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı akşamlar diliyorum.