将受密码保护的Excel连接到Access
我想链接一个密码保护的Excel文档到Access – 这是不工作，由于它是密码保护。
有没有人有另一种方法来做到这一点？
它不得不被密码保护，不能移动到一个安全的文件夹，所以不知道如何做到这一点。
有什么build议？
尝试使用隐藏窗体在数据库文件打开时自动打开Excel文件。
添加到一个新的模块：
Option Compare Database Public xl As Object Function OpenExcelFile() xl.Workbooks.Open "path to file.xlsx", , , , "password" End Function Function CloseExcelFile() xl.Quit set xl=nothing End Function 创build一个空白表单并将HasModule属性设置为true。 然后将以下内容添加到窗体的代码模块。
Private Sub Form_Load() OpenExcelFile End Sub Private Sub Form_Close() CloseExcelFile End Sub
现在用OpenForm任务创build一个新的macros来打开你的表单。 将窗口模式设置为“隐藏”。 用名称“AutoExec”保存该macros。 这使得它打开数据库时运行。
当数据库打开时，macros将运行并打开隐藏的表单。 表单加载事件将触发，创build一个公共Excel.Application对象，打开您的Excel文件（如果您希望提示用户，您应该能够从代码中删除密码）。 Excel应用程序将保持打开，直到隐藏窗体closures（closures数据库时）。 此时表单closures事件将触发，导致Excel应用程序退出。 只要Excel文件打开，您应该能够使用链接的表和查询。
**如果你希望它对用户可见，你可以添加xl.Visible = true到OpenExcelFile函数。
这个链接作为一个类似的想法： https : //www.connectionstrings.com/how-to-open-password-protected-excel-workbook/