отключить клавишу Shift при запуске в ms-access - PullRequest
Новая
       31

отключить клавишу Shift при запуске в ms-access

4 голосов
/ 15 ноября 2010

Проблема: в MS Access вы можете удерживать клавишу Shift , когда открывает базу данных для обхода параметров запуска и AutoExec Сценарий.Я хочу отключить это навсегда .

Прежде всего, я знаю, что на этот вопрос ответили на многих других сайтах, однако я не смог найти вопрос об этом здесь, но у меня немного другоенужно. Решения, которые я нашел, были сосредоточены на размещении невидимых кнопок для повторного включения сочетания клавиш с паролями и т. д.

Я хочу очень простое решение .Я хочу сценарий, который можно добавить в свой сценарий AutoExec, чтобы отключить сочетание клавиш Shift или что-то в этом роде.

I НЕ нужен способ повторного включения сочетания клавиш Shift.

Простейший , самый безопасный и Самый простой способ сделать это предпочтительнее.

Спасибо!

1 Ответ

8 голосов
/ 15 ноября 2010

Я всегда использовал этот бит кода 

Function SetBypass(rbFlag As Boolean, File_name As String) As Integer
    DoCmd.Hourglass True
    On Error GoTo SetBypass_Error
    Dim db As Database
    Set db = DBEngine(0).OpenDatabase(File_name)
    db.Properties!AllowBypassKey = rbFlag
setByPass_Exit:
    MsgBox "Changed the bypass key to " & rbFlag & " for database " & File_name, vbInformation, "Skyline Shared"
    db.Close
    Set db = Nothing
    DoCmd.Hourglass False
    Exit Function


SetBypass_Error:
    DoCmd.Hourglass False
    If Err = 3270 Then
        ' allowbypasskey property does not exist
        db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean, rbFlag)

        Resume Next
    Else
        ' some other error message
        MsgBox "Unexpected error: " & Error$ & " (" & Err & ")"
        Resume setByPass_Exit
    End If
End Function

Вы передаете ему имя файла и затем говорите, хотите ли вы, чтобы ключ обхода был включен или нет.

Проблема в том, что любой, кто имеет этот код, может использовать его для «разблокировки» вашей базы данных и включения ключа обхода.

Единственный способ, которым я могу обойти это, состоит в том, чтобы предоставить пользователям только доступ к рабочей версии

...