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

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