在 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 编辑器和/或或数据库中的导航窗格。