如何解决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 举报,一经查实,本站将立刻删除。