Silme İşlemi

[besen]

Şöyle bir komut vardı, sayfada yanlışlıkla silmeyi engelliyordu.
Silme gerekirse F2 + DEL yapılıyordu.
Aşağıdaki komut çalışmadı. Eksik olan nedir acaba?

Teşekkür ederim.
Private Sub Worksheet_Activate()
Application.OnKey "{DEL}", ""
End Sub

 

[Korhan Ayhan]

Kodun çalışması için sayfayı AKTİF etmeniz gerekiyor.

 

[besen]

Kodun çalışması için sayfayı AKTİF etmeniz gerekiyor.

Hocam zaten ilgili sayfanın içindeyim ve sayfa aktif.
Bakabilir misiniz.

 

[Korhan Ayhan]

Dosyanıza 2. bir sayfa ekleyin. Sonra 2. sayfayı tıklayın. Ardından kendi sayfanıza geçin. Sonra DELETE tuşuna basmayı deneyiniz.

 

[besen]

Dosyanıza 2. bir sayfa ekleyin. Sonra 2. sayfayı tıklayın. Ardından kendi sayfanıza geçin. Sonra DELETE tuşuna basmayı deneyiniz.

Denedim tabii ki hocam ama olmadı.

 

[Korhan Ayhan]

Ben deniyorum oluyor...

 

[Biolightant]

silmeyi engelliyordu

Bu tarz bir çözüm aklıma geldi, sizin senaryonuza uygun olur mu bilmiyorum ama paylaşmak istedim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "" Then
        Application.Undo
    End If
End Sub