Excel VBA中Workbook.Close无法关闭工作簿问题求助

你的代码问题出在陌生用户分支的执行顺序和后续操作：

• 在执行ThisWorkbook.Close Savechanges:=False之后，你又调用了Application.Visible = True，这行代码会让Excel应用程序重新显示界面——即使工作簿已经关闭，空的Excel窗口仍会留在桌面上，导致用户可以继续查看。
• 同时，表单卸载和工作簿关闭的时序可能存在冲突，导致ThisWorkbook.Close没有完全生效。

调整代码顺序，移除多余的Application.Visible = True，并可选择彻底退出Excel以确保安全性：

Private Sub Workbook_Open()
    Application.Visible = False
    loginform.Show
End Sub

Private Sub Loginbutton_Click()
Dim user As String
    user = Me.txtuser.Value
    If user = "Admin" Then
        Unload Me
        Application.Visible = True
    ElseIf user = "Mike" Or user = "Louise" Then
        MsgBox "NOT ADMIN USER", vbOKOnly
        Unload Me
        Application.Visible = True
    Else
        MsgBox "Not a valid user", vbCritical
        Unload Me
        ' 先关闭当前工作簿，不保存更改
        ThisWorkbook.Close Savechanges:=False
        ' 彻底退出Excel，避免残留空窗口
        Application.Quit
    End If
End Sub

• 如果需要保留Excel运行（比如用户可能打开了其他工作簿），可以去掉Application.Quit，但必须确保ThisWorkbook.Close之后不再执行Application.Visible = True，否则空Excel窗口仍会显示。
• 测试时注意：如果是在VBA编辑器中运行代码，Application.Quit会关闭编辑器，建议在Excel界面直接打开工作簿测试。

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