• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ana sayfada belirli aralığı silmeyi engelleme

Katılım
15 Temmuz 2012
Mesajlar
2,802
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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?
 
Son düzenleme:
Sayfayı Koruma altına alın. Sadece o aralıktaki kısmı kilitlersiniz, diğer tarafları açık bırakırsınız.
 
Sayın Hamit Bey, ilginiz için çok teşekkür ediyorum, benim dediğim gibi yapılabilir mi?
 
VBA editörde, Çalışma sayfanızın sayfa kodu kısmına:
Kod:
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.
 
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.
 
Kod:
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
 
Sayın turist çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı akşamlar diliyorum.
 
Geri
Üst