Question

我有一张工作簿_Open代码加载用户表单。关闭表单和工作簿后，Excel会提示我输入VBA项目密码我在这个页面上找到了关于这个问题的一些信息：
http://support.microsoft.com/kb/280454
http://social.msdn.microsoft.com/Forums/office/en-US/8cb79e54-26ae-487c-8945-69b84b2e4eeb/com-addins-and-vba-password-prompt-bug

但它似乎是COM加载项的问题，我有一些。问题是加载项不是我的，我无法更改或禁用它们。

还有其他解决方案吗？

Answer 1

对我来说，问题不是某些加载项或未发布的引用。这是Dropbox徽章。我删除它后，当我关闭Excel时，不再请求密码。要禁用Dropbox徽章，请打开Dropbox应用，转到“设置”，然后转到“首选项”，然后在“常规”选项卡中选择“Dropbox徽章”下的“从不显示”。我在以下论坛上找到了这个解决方案： https://www.excelforum.com/excel-programming-vba-macros/1100960-ever-annoying-vba-password-prompt-at-close-of-excel-2.html

Answer 2

当您挂起指向对象的指针时会发生这种情况。对于你在VBA中进行的每个'Set xyz ='，确保你有一个相应的'Set xyz = Nothing'。对于指向或从COM对象获取的任何内容也是如此。确保关闭所有ADO连接等。要特别小心处理所有错误，以便在工作簿可以关闭之前将所有对象变量设置为Nothing，具体如下：

Option Explicit
Option Compare Text
Public Sub Refresh()
    On Error GoTo FAIL
    Set wb = ThisWorkbook
    wb.Activate
    ' do something useful
DONE:
    On Error GoTo 0
    Set wb = Nothing
    Exit Sub
FAIL:
    MsgBox Err.Description
    GoTo DONE
End Sub

Answer 3

我有一些工作簿遇到了与某些用户相同的问题。我们经历了检查COM加载项以及Windows和Office的各种组合的过程。

最后，我们将以下代码作为workbook_beforeclose事件的一部分包含在内，并为我们的用户解决了问题。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim intResponse as Integer

'If the workbook needs to be saved then ask the user if they want to save the workbook, if not then exit without saving
'Need a global boolean to ensure the request to save the workbook is not shown twice
If Not ThisWorkbook.Saved And Not blnStartedClose Then
    blnStartedClose = True
    intResponse = MsgBox("Do you want to Save the this Workbook" & vbNewLine & vbNewLine & _
                        "Select 'Yes' to save the workbook" & vbNewLine & _
                        "Select 'No' to close without saving", vbYesNo, "Confirm - Workbook Save?")
    If intResponse = vbYes Then ThisWorkbook.Save
End If

'If the user has clicked on 'No' to save the workbook then reset the "Saved" property to TRUE so that when we exit this routine no attempt to save the workbook is made
ThisWorkbook.Saved = True

End Sub

Answer 4

我有一些客户有这个问题，我终于在安装BlueBeam Extreme后开始使用它。我取消选中COM加载项中的BluebeamOfficeAddIn，并在关闭我的.xlsm文件时停止弹出密码框。我会去做更多的挖掘，看看它是不是我的代码，但直到现在我还没有解决这个问题，并且禁用该插件似乎有帮助......

关闭excel时的VBA密码提示

4 个答案: