Access VBA调用Excel Workbook.Unprotect解除加密工作簿保护失效问题

1. Workbooks.Open 未读取密码参数、弹出手动输入框的原因 #

• 位置参数传参错位：你使用晚绑定方式创建Excel实例，未显式指定参数名，仅通过位置传参容易出现参数匹配错误。Workbooks.Open 方法的第5个参数才是文件打开密码Password，你当前的写法仅按空位跳过参数，若Excel版本参数顺序有差异、或省略参数默认值类型不匹配，就会导致密码参数没有被正确传递到对应位置。
• 密码类型不匹配：如果你给文件设置的是「修改权限密码」而非「打开权限密码」，需要传入WriteResPassword参数，而非Password参数。
• 密码值异常：你判断IsNull(Me!Password_Ins)的逻辑只处理了空值情况，如果输入框内容是空格、不可见字符，或者控件取值类型异常，会导致Strg_Pwd实际传入值不符合预期。
• Excel残留进程干扰：如果之前运行代码报错未释放Excel对象，后台存在残留的Excel进程锁定了目标文件，也会导致打开时密码参数失效。

2. Workbook.Unprotect 无法解除保护的原因 #

• 两个密码属性独立不通用：Excel的文件打开密码和工作簿结构保护密码是完全独立的两个设置。Workbook.Unprotect方法只用来解除工作簿结构/窗口保护的密码，和你打开文件用的密码没有关联，如果你只给文件设置了打开密码，调用这个方法本身就是多余的；如果确实设置了工作簿保护，需要传入对应的结构保护密码，而不是打开密码。
• 保护类型不匹配：如果是单个工作表被保护，你需要调用Worksheet.Unprotect而不是Workbook.Unprotect，方法调用对象错误也会导致解除失败。

• 显式指定参数名，避免位置传参错误：不管是早绑定还是晚绑定，都用参数名明确指定密码参数，修改打开代码为：

' 仅需打开密码的情况
Set WorkBookObj = ExcelApp.Workbooks.Open(FileName:=Percorso, UpdateLinks:=False, Password:=Strg_Pwd)
' 如果是修改权限密码的情况，替换参数即可
'Set WorkBookObj = ExcelApp.Workbooks.Open(FileName:=Percorso, UpdateLinks:=False, WriteResPassword:=Strg_Pwd)

• 完善密码取值逻辑，增加空值、空白字符校验：

Strg_Pwd = Nz(Me!Password_Ins, "")
Strg_Pwd = Trim(Strg_Pwd)

• 运行前清理残留Excel进程，代码结束后规范释放对象：

' 代码执行完成后按顺序释放对象，避免进程残留
WorkBookObj.Close SaveChanges:=True ' 根据你的业务需求调整保存参数
Set WorkBookObj = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing

• 区分两类密码的处理逻辑：如果你的文件只设置了打开密码，直接删除WorkBookObj.Unprotect Strg_Pwd这行代码即可；如果确实需要同时处理工作簿结构保护，新增单独的输入项获取结构保护密码，再传入Unprotect方法。
• 增加错误捕获判断密码正确性：在ErrorHandler分支捕获密码错误的报错码（通常错误号为1004），返回密码输入错误的提示。

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