Delete ve Backspace

[pelin5353]

Merhaba,

Sayfanin herhangi bir yerinde DELETE veya BACKSPACE tuslarina basinca Silmek icin onay almasi mumkun mu ? Istemdışı veri kaybinin onune gecmek istiyorum..

 

[N.Ziya Hiçdurmaz]

yanıt

Aktif çalışma kitabında Delete tuşuna basıldımı seçili alanın silinip silinmeyeceğini sorar evet derseniz siler.

Sub auto_open()
Application.OnKey "{delete}", "test"
End Sub
Sub test()
If MsgBox("silinsinmi", vbInformation + vbYesNo) = vbNo Then Exit Sub
Selection.ClearContents
End Sub

 

[pelin5353]

Cok Tesekkur ederim. Peki Hucreye sadece ENTER tusuna basılarak girilebilirmi.. Aksi halde hucrede herhangi bir degisiklik yapılamasin..yani klavyeden yapilan girisler ignore olsun..?

 

[N.Ziya Hiçdurmaz]

yanıt

Klavyenin sağ altındaki enter için geçerlidir. Sayfa ilk açıldığında korumalıdır entere basıldığında koruma kalkar.
Sub auto_open()
ActiveSheet.Protect
Application.OnKey "{Enter}", "test"
End Sub
Sub test()
MsgBox "Şifre açılmıştır"
ActiveSheet.Unprotect
End Sub

 

[pelin5353]

Sayfa gun boyu acik oldugu icin veri girisi yaptiktan sonra tekrar protect yapmasi lazim .. Bu sekilde sadece 1 defa enter a basarak protect kaldiriliyor..

 

[N.Ziya Hiçdurmaz]

yanıt

Veri girişinden sonra F12 ye basılıp bu isteğinizde olur.

Sub auto_open()
ActiveSheet.Protect
Application.OnKey "{Enter}", "test"
Application.OnKey "{F12}", "koru"
End Sub
Sub test()
MsgBox "Şifre açılmıştır"
ActiveSheet.Unprotect
End Sub
Sub koru()
MsgBox "Sayfa korumaya alınmıştır"
ActiveSheet.Protect
End Sub

 

[pelin5353]

Cok sagolun..

 

[N.Ziya Hiçdurmaz]

Bişey Değil.