Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Ctrl+S engelleme
If KeyCode = 83 And Shift = acCtrlMask Then
'Sadece Ctrl Engelleme
'If Shift = acCtrlMask Then
MsgBox "Ctrl + S devredışı bırakılmıştır", vbInformation
KeyCode = 0
End If
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
koddaki keykode=83 "S" harfinin değeridir acCtrlMask CTRL tuşunu ifade eder. Siz kopyalama için "C"' yi engelleyecekseniz keycode=67, kesme için "X" keycode=88, yapıştırma için "V" keycode=86 olarak kodlara uyarlayabilir ve kopyala/kes/yapıştır kısayollarını engellemiş olursunuz.