Kısa yol tuşları

[necrofilus]

merhabalar herkese

Excelde bazı problemlerim var ve bildiklerim gerçekten snırlı ancak isteklerim hep fazla bu sebeple yardımlarınıza muhtacım.

Bir program yaptım yaptığım programın içinde yazdır, kaydet, kapat, kopyala, yapıştır gibi işlemleri yapan butonlar var bu butonlar sayesinde yapılan işlemleri başka bir sayfada saklaya biliyorum örneğin xxx kullanıcısı dosyayı kaydetti, aaa kullanıcısı ... belgeyi yazdırdı gibi.

Ancak kişi ctrl + s yaparak kaydederse, ctrl + p yaparak veya üstteki yazdır butonuna basarak yazdırırsa butona basılmadığı için takip olayımda ortadan kalkmış oluyor.

benim istediğim bu kısayol tuşlarına basıldığında örneğin kullanıcı ctrl + p yaptığında yazdırma işlemini gerçekleştirmeyip ekrana bir msgbox açılması ve "yazdırma işlemi yapmak için 'YAZDIR' butonunu kullanın" demesi.

yardımcı olabilecek herkese şimdiden sonsuz teşekkürler.

 

[Seyit Tiken]

Şöyle bir mantık geliştirdik, uygulayıp deneyiniz. "Yazdır" işlemi içindir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If [a1] = 1 Then
Cancel = False
Else
Cancel = True
End If
End Sub
'---------------------
Modüle :
Sub Düğme1_Tıklat()
[a1] = 1
Sayfa1.PrintOut
[a1] = ""
End Sub

 

[necrofilus]

Desteğiniz için teşekkür ederim. verdiğiniz cevap pratik bir çözüm olmuş ancak fazladan her tuşa bir kod yazmam gerekecek buda beni biraz zorlardı ben şu kodu buldum denedim işimi gördü sizlede paylaşmak istedim.

Application.OnKey "^p", ""

ctrl + p işlevini devre dışı bırakıyor.