如何通过VBA将含无DSN无密码表的MS Access设为不可访问状态？

刚好你碰到的这个提示，对应的是Access数据库被配置了禁止外部数据导入导出的权限（可能还搭配了独占打开设置），这样其他人就没法通过内置菜单导入里面的表或查询。下面给你具体的VBA实现方案，完全适配ACCDB/ACCDE文件的分发场景：

方法1：修改数据库属性禁用导入导出 #

这个方法直接修改数据库的内置属性，不需要设置密码，完美匹配你提到的“无密码表”场景：

操作步骤： #

1. 打开要设置的目标ACCDB数据库，按Alt+F11打开VBA编辑器；
2. 插入一个新模块，把下面的代码粘贴进去：

Sub SetDatabaseRestrictions()
    Dim db As DAO.Database
    Set db = CurrentDb
    
    ' 禁用导入/导出功能
    db.Properties("AllowImportExport") = False
    
    ' 禁用Shift键跳过启动设置（防止用户绕开限制）
    If Not PropertyExists(db, "AllowByPassKey") Then
        db.Properties.Append db.CreateProperty("AllowByPassKey", dbBoolean, False)
    Else
        db.Properties("AllowByPassKey") = False
    End If
    
    ' 可选：设置数据库为独占打开模式，进一步增强限制
    db.Properties("Exclusive") = True
    
    MsgBox "数据库已设置为不可导入/导出状态！", vbInformation
End Sub

' 辅助函数：检查目标属性是否已存在
Function PropertyExists(db As DAO.Database, propName As String) As Boolean
    Dim prop As DAO.Property
    On Error Resume Next
    Set prop = db.Properties(propName)
    PropertyExists = (Err.Number = 0)
    On Error GoTo 0
End Function

3. 运行SetDatabaseRestrictions这个过程，执行完成后关闭数据库；
4. 重新打开数据库时，你会发现导入/导出相关的菜单选项已经被禁用，其他用户尝试从这个数据库导入数据时，就会收到和你之前碰到的类似错误提示。

方法2：转换为ACCDE并搭配启动选项强化限制 #

如果你的最终分发格式是ACCDE（编译后的数据库，无法修改VBA代码），可以结合启动选项进一步锁死权限：

1. 先按方法1的步骤，在ACCDB状态下设置好所有属性；
2. 点击Access菜单栏的文件→保存并发布→生成ACCDE，得到编译后的文件；
3. 打开生成的ACCDE文件，配置启动选项：
   • 点击文件→选项→当前数据库；
   • 取消勾选允许全部菜单和允许默认快捷菜单；
   • 可选：设置显示窗体为一个自定义的启动窗体，引导用户使用你的功能而非系统菜单；
   • 勾选使用独占打开；
4. 保存设置后，其他用户打开这个ACCDE文件时，不仅没法导入数据，连系统菜单都会被隐藏，完全没法触发导入导出操作。

重要提醒 #

• 执行代码前一定要备份数据库，避免误操作导致无法恢复；
• 如果你之后需要解除限制，得在ACCDB状态下把AllowImportExport和AllowByPassKey改回True——ACCDE文件没法修改属性，所以必须先在ACCDB里解除限制，再重新生成ACCDE；
• 这种限制能挡住绝大多数普通用户，但不能完全阻止高级工具绕过，不过对于常规分发场景已经足够。

内容的提问来源于stack exchange，提问作者Eperbab