我太懂这种明明严格按要求操作，结果系统还报错的憋屈了！之前帮同事排查过一模一样的问题，给你几个针对性的排查步骤，大概率能解决：

• 先确认你真的是「正确的独占打开」：很多人以为双击文件选独占就ok，但有时候系统缓存会搞鬼。正确流程是：

  1. 彻底关闭所有Access窗口
  2. 直接打开Access主程序（别双击你的.accdb文件）
  3. 点击「打开其他文件」→「浏览」找到目标文件
  4. 点击「打开」按钮旁边的小箭头，选择「以独占方式打开」
  5. 再去「文件→信息→加密数据库→用密码进行加密」尝试设置

• 杀掉后台隐藏的Access进程：有时候重启电脑没用，是因为后台还挂着Access进程，导致文件被占用。操作：
  按Ctrl+Shift+Esc打开任务管理器，切换到「进程」标签，找到所有带「Microsoft Access」的进程，右键全部结束，再重新按正确方式打开文件。

• 排查文件的锁定/共享状态：

  • 如果文件在网络共享盘，先复制到本地硬盘再操作（网络锁会直接导致独占模式失效）
  • 右键文件→「属性」，看看有没有勾选「只读」，有的话取消掉
  • 确认没有其他程序在访问这个文件（比如同步软件、杀毒软件正在扫描，或者其他用户打开了没关）

• 修复数据库文件：文件损坏也会导致这种莫名其妙的权限报错：
  打开Access主程序，点击「文件→打开」，选中你的文件后，点击「打开」按钮旁的小箭头→「打开并修复」，修复完成后再尝试设置密码。

• 终极办法：用VBA强制设置密码：如果以上都不行，试试用代码硬刚：

  1. 打开Access主程序，新建一个空白数据库
  2. 按Alt+F11打开VBA编辑器
  3. 插入一个模块，粘贴以下代码，记得替换文件路径和新密码：

     Sub SetDBPassword()
         Dim db As DAO.Database
         ' 把下面的路径换成你的.accdb文件路径，True表示独占打开
         Set db = OpenDatabase("C:\Users\你的用户名\Documents\你的数据库.accdb", True)
         ' 第一个空字符串是旧密码（如果之前没设过密码就留空），第二个是你要设的新密码
         db.NewPassword "", "MyNewStrongPassword123"
         db.Close
         MsgBox "密码设置成功！"
     End Sub
     

  4. 运行这个宏，应该能绕过界面的报错直接设置密码

额外提示：如果还是不行，试试把数据库另存为一个新的.accdb文件，再对新文件设置密码——有时候文件的元数据损坏会导致这种玄学问题。

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