禁用特殊键

Question

下午

我希望禁用特殊键，例如 CTRL+Break、F11 等

下面的代码在我的 AutoExec 宏中 - 它不调试但似乎根本不起作用：

感谢任何帮助

代码：

Dim prp As DAO.Property
Set db = CurrentDb()
Select Case X
    Case 1
    Set prp = db.CreateProperty("StartUpShowDBWindow", 1, 1)
        db.Properties.Append prp
    Case 2
    Set prp = db.CreateProperty("AllowBreakIntoCode", 1, 1)
        db.Properties.Append prp
    Case 3
    Set prp = db.CreateProperty("AllowSpecialKeys", 1, 1)
        db.Properties.Append prp
    Case 4
    Set prp = db.CreateProperty("AllowToolbarChanges", 1, 1)
        db.Properties.Append prp
    Case 5
    Set prp = db.CreateProperty("AllowFullMenus", 1, 1)
        db.Properties.Append prp
    Case 6
    Set prp = db.CreateProperty("AllowBuiltInToolbars", 1, 1)
        db.Properties.Append prp
    Case 7
    Set prp = db.CreateProperty("AllowByPassKey", 1, 1)
        db.Properties.Append prp
    Case Else
    'do nothing

Answer 1

这些属性在 AutoExec 宏触发之前加载，并为下一次 启动设置。您需要重新启动数据库才能生效。

此外，它们是布尔属性，这意味着：db.CreateProperty("StartUpShowDBWindow", 1, False)，而不是db.CreateProperty("StartUpShowDBWindow", 1, 1)，如果你想禁用某些功能。

禁用特殊键

Disable SpecialKeys

ms-access

vba

ms-access-2010