MS Access VBA：输入错误密码后无法关闭加密Excel的问题求助

问题根源 #

你的代码创建了独立的Excel实例objExcel，但调用Workbooks.Open时没有指定关联这个实例，导致实际弹出密码框的是Access默认关联的Excel进程，而非你创建的objExcel。密码错误触发异常后，objExcel.Quit只能关闭你创建的空实例，而那个弹出密码框的进程会残留。

修正后的代码 #

Public Function getDeploymentID() As String
    Dim fileLocation As String
    fileLocation = "___DeploymentID.xlsx"
    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    Dim wb As Object ' 用Object类型避免引用Excel库，提升兼容性

    ' 隐藏Excel窗口，避免用户看到空Excel界面
    objExcel.Visible = False

    On Error GoTo getDeploymentID_ERROR
    MsgBox "开发密码存储在加密Excel文件中，接下来会提示你输入密码"
    ' 关键修改：明确使用objExcel实例打开工作簿
    Set wb = objExcel.Workbooks.Open(fileLocation, True)
    
    ' 获取DeploymentID
    getDeploymentID = wb.Worksheets("Sheet1").Cells(1, 1).Value

    ' 关闭工作簿和Excel实例
    wb.Close SaveChanges:=False
    objExcel.Quit
    DoEvents

    GoTo getDeploymentID_Cleanup

getDeploymentID_ERROR:
    Debug.Print "打开DeploymentID Excel文件失败。错误 " & Err.Number & ":" & Err.Description
    ' 确保关闭创建的Excel实例
    objExcel.Quit
    DoEvents

getDeploymentID_Cleanup:
    ' 释放对象，避免内存泄漏
    Set wb = Nothing
    Set objExcel = Nothing
End Function

关键修改说明 #

1. 绑定Excel实例：用objExcel.Workbooks.Open替代Workbooks.Open，确保所有操作都在我们创建的实例中进行
2. 隐藏Excel窗口：添加objExcel.Visible = False，避免用户看到空的Excel界面，提升体验
3. 通用对象类型：将wb声明为Object，无需引用Excel对象库，增强代码兼容性
4. 显式关闭工作簿：先关闭工作簿再退出Excel，避免残留文件锁

存储API ID的替代方案 #

除了加密Excel，还有更轻量、安全的存储选择：

• Access加密表：直接在当前Access数据库中创建一个加密表（设置数据库密码或使用Access的加密功能）存储ID，无需额外文件，操作更简便
• 加密文本文件：用VBA实现简单的加密逻辑（比如异或加密、Base64编码）将ID写入文本文件，读取时解密，比Excel文件更轻量
• Windows注册表：将ID存储在注册表的用户级加密项中（需注意权限），适合单用户本地存储场景
• 本地密钥管理工具：企业环境可使用Windows Credential Manager存储ID，通过VBA调用API读取，安全性更高

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