在 DB Open 上啟用禁用 Shift 鍵

此程式碼將關閉使用者在開啟資料庫時按住 Shift 鍵以跳過預設表單開啟並允許使用者訪問導航窗格和 VB 編輯器的功能。在 DB 中,你不希望使用者訪問其中任何一個(以及禁用當前資料庫選項中的特殊鍵的使用),此程式碼將有助於保持資料庫鎖定。

通常,下面的程式碼放在它自己的模組中,可以命名為 basEnableDisableShift 模組,但這只是一個建議,你可以將它放在你可能已經擁有的任何模組中。

要禁用 Shift 鍵,請在 VB Editor 螢幕中,在 Immediate 視窗中輸入’DisableShift’,然後按 Enter 鍵。然後,你將收到一條訊息,告知 Shift 鍵已被禁用。

要重新啟用 Shift 鍵,你將再次需要返回到 VB Editor 螢幕,在 Immediate 視窗中輸入’EnableShift’並按 Enter 鍵。你將在立即視窗中再次收到一條訊息,告知 Shift 鍵已啟用。

注意: 這不是啟用和禁用 Shift 鍵的簡單方法,但如果要將資料庫部署到不熟悉 MS Access 和 VBA 的使用者,則應該有助於阻止使用者訪問 VB 編輯器和/或或資料庫中的導航窗格。