您可以使用 AllowBypassKey 屬性來指定是否啟用 SHIFT 鍵，以略過啟動屬性和 AutoExec 巨集。 例如，您可以將 AllowBypassKey 屬性設為 False，以避免使用者略過啟動屬性和 AutoExec 巨集。
設定
AllowBypassKey 屬性使用下列設定。
|
設定 |
描述 |
|
是 |
啟用 SHIFT 鍵，以允許使用者略過啟動屬性及 AutoExec 巨集。 |
|
否 |
停用 SHIFT 鍵，以避免使用者略過啟動屬性及 AutoExec 巨集。 |
您可以使用巨集或 Visual Basic for Applications (VBA) 程式碼來設定此屬性。
若要使用巨集或 Visual Basic for Applications (VBA) 程式碼來設定 AllowBypassKey 屬性，您必須透過下列方法建立屬性：
-
在 Microsoft Access 資料庫 (.mdb 或 .accdb) 中，您可以使用 CreateProperty 方法，將屬性新增並附加到 Database 物件的 Properties 集合中。
-
在 Microsoft Access 專案 (.adp) 中，您可以使用 Add 方法，將屬性新增到 CurrentProject 物件的 AccessObjectProperties 集合中。
備註
當您對應用程式進行偵錯時，您應確認 AllowBypassKey 屬性已設為 True。
AllowBypassKey 屬性的設定要在下次開啟應用程式資料庫時才會生效。
範例
下列範例顯示名為 SetBypassProperty 的程序，該程序會傳遞要設定之屬性的名稱、其資料類型及設定。 ChangeProperty 這個一般用途程序會嘗試設定 AllowBypassKey 屬性，並且若找不到該屬性，則會使用 CreateProperty 方法將屬性附加到 Properties 集合。 這是必要的，因為 AllowBypassKey 屬性要等到新增之後才會顯示在 Properties 集合中。
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
