ms接入;如何在没有密码的情况下将其移动到不可访问状态/DSN-less表

我试图使用内置的导入菜单将已打开的MS Access accdb文件中的表导入到新的accdb文件中,但收到错误消息。
错误消息表示“admin”用户已将文件设置为不可访问状态。(这是我从匈牙利语翻译过来的)
因此,我无法导入任何表或查询。

我想知道,如何使用VBA代码以编程方式将accdb或accde文件移动到这种不可访问的状态。

背后的原因:我想分发一个前端accde文件,它可以防止任何人窃取odbc连接信息,如MySQL服务器用户和密码。但是Msysobjects表可以导入到另一个access文件中。
我可以在启动时创建表和查询,并在应用程序关闭时删除它们,但如何防止;是否在运行时从中查询导入?
这种难以接近的状态会很方便。
如果有其他方法阻止表导入其他access文件,请告诉我。

*编辑的部分:*
设计视图技巧:

DoCmd.OpenForm "frmUnused",acDesign,,,,acHidden  

使用accdb,编辑时锁定表导入。与预期一样,不适用于accde。

连接缓存方法:
使用查询。
固定的 :无论我多么努力,用户和密码都已与表一起保存。我提供了一个没有用户和密码的连接字符串,但在将tabledef附加到集合后,它出现在连接字符串中。
方法A保存了未提供的密码,方法B仅适用于手动登录。

备注: 我知道存储用户;帐户中VBA中的密码不是最安全的选项,但是。。1、在服务器端创建新用户&分配角色可能会慢得令人痛苦。(另见:官僚制度)2。同时,将服务器凭据交给数千名用户也使社会工程变得更容易。
如果在文本编辑器中打开accde文件,则可以查看常量值,甚至可以查看私有常量值。而是使用函数来回显值。

实际用户和密码已在以下文本中替换。
登录通过/失败和。在从调试复制行之前/之后连接。打印输出。

我尝试了两种变体:

A. :/Albert D.Kallal提议/
*删除所有表和查询,压缩(&N);修复,然后重新启动应用程序。
*?tabletest:使用user和pwd进行testlogon,然后使用AddOneTable(MyCon)而不使用。
*登录通行证
*。Connect before=ODBC;驱动程序={MySQL ODBC 5.3 Unicode驱动程序};服务器=本地主机;数据库=mesterlista
*。Connect after=ODBC;驱动程序={MySQL ODBC 5.3 Unicode驱动程序};服务器=本地主机;数据库=mesterlista;用户= ;密码= ;
*>&燃气轮机; 已存储用户和密码剑。
* 修复:之后。追加,重新编辑。&连接;重新链接。

B :/s用于手动登录/
*删除所有表和查询,压缩(&N);修复,然后重新启动应用程序。
*AddOneTable(MyCon)+MySQL连接器/ODBC数据源配置窗口
*。Connect before=ODBC;驱动程序={MySQL ODBC 5.3 Unicode驱动程序};服务器=本地主机;数据库=mesterlista
*。Connect after=ODBC;Driver=MySQL ODBC 5.3 Unicode驱动程序;服务器=本地主机;数据库=mesterlista;端口=3306
*>&燃气轮机; 注意{}在驱动程序名中消失了,端口也出现了。
*应用程序重新启动
*?TestLogon(“ODBC;驱动程序=MySQL ODBC 5.3 Unicode驱动程序;服务器=localhost;数据库=mesterlista;端口=3306”用户= ;密码= “”)
* 符合事实的
*表不工作,弹出MySQL连接器/ODBC数据源配置窗口。
*?TestLogon(“ODBC;驱动程序=MySQL ODBC 5.3 Unicode驱动程序;服务器=localhost;数据库=mesterlista;端口=3306”)+MySQL连接器/ODBC数据源配置窗口,手动登录
* 符合事实的
*表正在工作。
*>&燃气轮机;因此,如果希望手动登录,此方法很好,但不适用于自动登录。

用于测试的VBA代码:

Public Function tabletest()

  Dim MyConWithPassWord   As String
  Dim MyCon               As String

  MyCon = "ODBC;DRIVER={MySQL ODBC 5.3 Unicode Driver};Server=localhost;Database=mesterlista"
  MyConWithPassWord = MyCon & ";user=***;password=***"

   If TestLogon(MyConWithPassWord) = False Then
      Debug.Print "LOGON FAIL"
      Exit Function
   End If

   Debug.Print "LOGON PASS"
   AddOneTable (MyCon)

End Function

Public Function TestLogon(strCon As String) As Boolean

   On Error GoTo TestError

   Dim dbs          As DAO.Database
   Dim qdf          As DAO.QueryDef

   Set dbs = CurrentDb()
   Set qdf = dbs.CreateQueryDef("")

   qdf.Connect = strCon
   qdf.ReturnsRecords = False

   'Any VALID SQL statement that runs on server will work below.
   qdf.SQL = "SELECT 1;"
   qdf.Execute

   TestLogon = True

Exit Function

TestError:
   TestLogon = False

   Debug.Print Err.Number, Err.Description
   Debug.Print strCon

End Function


Public Function AddOneTable(strCon As String)
   On Error GoTo myerr

  Dim tdfcurrent As DAO.TableDef

  Dim LocalTable    As String      ' name of local table link
  Dim ServerTable   As String      ' name of table on SQL server

  LocalTable = "cimke"
  ServerTable = "cimke"

  Set tdfcurrent = CurrentDb.CreateTableDef(LocalTable)

  tdfcurrent.SourceTableName = ServerTable
  tdfcurrent.Connect = strCon

  Debug.Print ".Connect before = " & tdfcurrent.Connect

  CurrentDb.TableDefs.Append tdfcurrent

  CurrentDb.TableDefs.Refresh
  Debug.Print ".Connect after = " & CurrentDb.TableDefs(LocalTable).Connect

  ' fix: removing user / password from tabledef.connect:
  Set tdfcurrent = CurrentDb.TableDefs(LocalTable)
  tdfcurrent.Connect = strCon
  tdfcurrent.RefreshLink

  Debug.Print ".Connect after RELINK = " & CurrentDb.TableDefs(LocalTable).Connect



Exit Function

myerr:
   Debug.Print Err.Number, Err.Description
   Debug.Print strCon

End Function