在ms-access中启动时禁用shift键

Question

问题:在MS Access中,您可以在打开数据库时按住Shift键以绕过启动选项和AutoExec脚本.我想永久禁用它.

首先我知道这已在其他许多网站上得到解答,但我在这里找不到一个问题,但我的需求略有不同.我发现的解决方案专注于放置隐形按钮以重新启用移位 - 密码等密钥快捷方式

我想要一个很简单的解决方案.我想要一个脚本,我可以添加到我的AutoExec脚本,以禁用shift键快捷键或类似的东西.

我不需要重新启用 shift键快捷键的方法.

在最简单,最安全和最容易做到这一点的方法是首选.

谢谢!

Answer 1

我一直使用这段代码

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

您传递一个文件名然后说出是否要启用旁路键.

问题是拥有此代码的任何其他人都可以使用它来"解锁"您的数据库并启用旁路密钥.

我能想到解决这个问题的唯一方法是只为用户提供访问的运行时版本