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

问题：在MS Access中，当打开数据库时，您可以按住shift键，以便绕过启动选项和自动执行脚本。我想永久禁用此功能

首先，我知道很多其他网站都回答了这个问题，但是我在这里找不到关于这个问题的问题，但我有一个稍微不同的需求。我找到的解决方案是放置不可见的按钮，以重新启用带有密码的shift键快捷方式等

我想要一个非常简单的解决方案。我想要一个脚本，我可以添加到我的AutoExec脚本，以禁用shift键快捷方式或类似的东西

I无需重新启用shift键快捷方式

首选最简单的、最安全的和最简单的方法

---

谢谢

我一直使用这段代码

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

您向它传递一个文件名，然后说是否要启用旁路键

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

---

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

我在哪里/如何运行这个脚本？如果我这样做并将access文件设置为只读，是否会阻止他们将其更改回来？您可以将其放在单独的“实用程序”数据库中，也可以将其放在现有数据库的模块中。您可以这样称呼它SetBypass False，“C:\MyDatabase.mdb”工作得很好。我将这段代码放在一个新模块中，并将这行代码放在我的表单加载函数中。表单是由autoexec脚本加载的，因此它应该在每次打开数据库时运行。问题：如何将其添加到autoexec脚本中？是否检查了AllowBypassKey下的Access VBE帮助文件？帮助文件中就提供了这方面的代码。至于安全性，那是另一回事，因为任何有一点编程知识的人都可以禁用你的设置，即使你已经使用Jet用户级安全保护了你的前端。不，对不起，我甚至不知道有一个帮助文件。我很少使用access，在access中使用visual basic的更少。主要做.net和MsSql类型的东西。谢谢你提供的信息。