VB(A) Ctrl+Break verhindern?

[beko]

Moin,

gibt es eine Möglichkeit die Kombination Ctrl+Break in MS Access zu unterbinden oder abzufangen? Damit wird der Code in der 'gesicherten' Version zwar nicht zur Ansicht freigegeben aber dennoch angehalten und das ist nicht immer eine gute Idee wenn man das an den richtigen Stellen drückt und dabei die halbe DB zerlegen kann

Eventuell mit den Allow oder Startupfunktionen?

[beko]

Hm, das hier hab ich schon gefunden, gilt aber leider nur für Makros und der Esc-Taste. Das muss es doch auch für Ctrl+Break geben

----

Verhindert das Unterbrechen der Makroausführung durch Betätigung der Esc-Taste:

Application.EnableCancelKey = xlDisabled

Verzweigt in den aktuellen Errorhandler:

Application.EnableCancelKey = xlErrorHandler

----

[-roTekuGeL-]

Option Explicit


Private Declare Sub keybd_event Lib "user32" (ByVal _

        bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _

        As Long, ByVal dwExtraInfo As Long)


Const VK_LWIN = &H5B

Const VK_APPS = &H5D


Const KEYEVENTF_KEYUP = &H2


Private Sub Command1_Click()

  keybd_event VK_LWIN, 0, 0, 0

  keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0

End Sub

Versuch's mal hiermit... such dir einfach die passenden Keykonstanten aus der Win32 API heraus und setz sie ein... gibt aber keine Garantie, das es geht

edit: ach quatsch das ist ja für den aufruf von tasen sry