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