如何在设计模式下打开锁定的应用程序？

Question

我们的 MS Access 2000 开发人员一年前离开了公司。我们需要在设计模式下打开他的应用程序才能进行修改。按住 Shift 键的同时双击 .mdb 文件不起作用。当我这样做时，开发人员工具栏会显示一瞬间，然后所有工具栏都会消失，应用程序会以用户看到的方式打开。不显示工具栏，仅可见用于运行应用程序的基本仪表板。我尝试使用提到的密码恢复工具 这里但该工具说没有密码。有人可以告诉我如何打开这个应用程序来进行代码修改吗？

Answer 1

贝丝的回答对我自己和同事都有效。我已从链接复制了解决方案，以防链接失效。

“...要解锁 Access DB，如果您知道数据库的完整路径，则可以使用以下命令。

将以下函数复制到另一个数据库中的模块中并调用该函数。您需要将 strPath 设置为你的数据库。”

Public Function ResetExternalDatabaseBypassKey _
 (Optional tfAllow As Boolean = True)

'Name:      ResetExternalDatabaseBypassKey (Function)
'Purpose:   Sets AllowByPassKey to true in another Access Database
'Author:    John Spencer UMBC-CHPDM
'Date:      May 02, 2000, 12:08:19 PM
'*******************************************
Dim dbs As Database
Dim strPath As String

On Error GoTo ResetExternalDatabaseBypassKey_ERROR

strPath = "C:/MyDatabases/SomeDataBaseName.mdb"

Set dbs = DBEngine.Workspaces(0).OpenDatabase(strPath)
dbs.Properties("AllowByPassKey") = tfAllow


ResetExternalDatabaseBypassKey_ERROR:
Select Case Err.Number
   Case 3270   'Property not found
      MsgBox "Allow Bypass Key property does not exist " & _
             "for the chosen database."
   Case Else
      MsgBox Err.Number & ": " & Err.Description
   End Select

End Function

Answer 2

确保在未启用此代码的情况下没有留下其他副本。

这是用于执行此类操作的典型代码，SetByPass 有说明按 Cntl-G 打开 VBA 编辑器并运行代码以取消设置此内容。

Answer 3

您是否尝试过创建一个新的空白数据库，然后导入所有内容？

听起来好像已设置了 Shift 键旁路，但正如所指出的那样，通常仅在部署时需要。事实上，对于任何访问开发人员来说，这都是一种标准方法。

因此，尚不清楚是否有任何东西被锁定在这里，或者人员只是按照大多数访问应用程序在部署给用户时应该进行的设置。

导入到另一个应用程序时唯一丢失的是工具启动设置和 Shift 键。如果有自定义菜单，请确保选中也导入这些菜单的选项。 （但是，请小心，因为有时可以将自定义菜单设置为在启动时运行宏，这是一个古老的安全技巧）。因此，如果使用工具栏导入一次并按住 Shift 键仍然导致启动代码运行，则尝试创建另一个空白数据库，这次导入旧应用程序中除菜单+工具栏之外的所有内容。按住 Shift 键即可为您工作。

另外，如果系统不要求您输入密码，那么您期望密码恢复程序做什么？您所需要的只是基本的访问开发人员技能来处理这个问题，并且在没有提示您输入密码时抛出密码删除之类的东西不会让您继续前进。

另一方面，如果将所有表单导入到新数据库后，设计能力呈灰色，那么这实际上是一个mde文件，并且您的处境相当困难，除非您能找到用于创建的原始mdb文件mde。