Workbook.Unprotect 无法从 ACCESS VBA

问题描述

从 MS Access，我打开一个 Excel (.xlsx) 文件以应用一些更改，将其保存并上传到 Access。一切都由 VBA 管理。

如果 Excel 文件没有打开密码加密，VBA 可以完美运行。

为了管理用密码加密的工作簿，我写了一个有很多奇怪错误的 VBA。我在表单中提供密码作为输入，但密码不是由以下代码读取的。打开工作簿，Excel 要求我在提示中插入工作簿密码。然后，Workbook.Unprotect 不会取消保护使用密码保存的工作簿。正如预期的那样，Access 无法从受保护的 Excel 文件上传数据。

我认为应该是一个很容易解决的问题，但我无法弄清楚。你有什么见解可以给我吗？

'( VBA procedure starts with variable declaration)

Set ExcelApp = CreateObject("Excel.Application")

If IsNull(Me!Password_Ins) 'Password_Ins is the input 
    Then
    Strg_Pwd = ""
    Else: Strg_Pwd = Me!Password_Ins
    End If

On Error GoTo ErrorHandler
Set WorkBookObj= ExcelApp.Workbooks.Open(Percorso,False,Strg_Pwd) ' asks to insert the password manually

'ExcelApp.Visible = True

WorkBookObj.Unprotect Strg_Pwd 'doesn't remove the password

' (procedure continues)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-access ms-access-2010