Можно использовать этот код в Доступе, чтобы поймать CTRL+A и проигнорировать его. Оборотная сторона - Вы, должно будет добавить это к каждой форме, которую Вы хотите заблокировать. (позитивный аспект: Вы не должны блокировать каждую форму),
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And Shift = acCtrlMask Then 'Catch Ctrl+A
KeyCode = 0 'Suppress keypress
End If
End Sub
Добавьте это к Form > On Key Down
Событие
ВАЖНЫЙ: Прокрутите к нижней части Списка событий и изменения Key Preview
к Да.
Создайте макрос под названием AutoKeys. В первом столбце введите ^A, и во втором, выберите Beep из выпадающего. Это вызовет Звуковой сигнал каждый раз, когда ^A нажимается где угодно в Вашем приложении.
Если Вы хотите абсолютно ничего не сделать (т.е. никакой ЗВУКОВОЙ СИГНАЛ), необходимо будет записать функцию для вызова, который не делает ничего и вызова это с действием RunCode.
Если бы Вы хотите позволить его в некоторых контекстах а не в других, необходимо было бы написать более сложный код для этого. Я не совсем уверен, на что был бы похож тот код, поскольку он повышает много интересных проблем.
И, конечно, это - вопрос о StackOverflow...
(откровенно я думаю, что этот целый вопрос принадлежал там все время, так как ответы требуют или пишущий кодирование или создание чего-то подобного коду, т.е. макроса),
#IfWinActive, ahk_class OMain
^a::Return
#IfWinActive
На языке автоматизации Автогорячей клавиши.
Кроме того:
#IfWinActive, ahk_class OMain
^a::MsgBox, Oh god oh god we're all going to die
#IfWinActive