取消隐藏Excel应用程序会话

我有一个运行的Excel VBA方法（我没有编写），它首先要做的事情之一是隐藏Excel会话

Application.Visible=False

但是，当该方法完成时，它不会取消隐藏Excel会话，因此它会保持打开状态并在任务管理器中列出，但会被隐藏且看起来不可用

如果没有打开VBE（以便可以访问即时窗口并运行

Application.Visible=True

），有人知道如何取消隐藏此Excel会话吗？目前，我只需要使用任务管理器终止会话

这不是一个大交易，但我只是对是否有人知道如何恢复这样的会议感兴趣

就像我说的，这没什么大不了的，但我只是对是否有人知道快捷键或任何能把它带回来的东西感兴趣

我知道没有捷径，但你可以做到

打开MS Word并在VBA编辑器中粘贴此代码。关闭所有可见的Excel打开实例，然后运行并删除此代码。这将使隐藏的实例可见。手动关闭实例，如果有更多实例，则重复此过程

Option Explicit

Sub Sample()
    Dim oXLApp As Object

    '~~> Get an existing instance of an EXCEL application object
    On Error Resume Next
    Set oXLApp = GetObject(, "Excel.Application")
    On Error GoTo 0

    oXLApp.Visible = True

    Set oXLApp = Nothing
End Sub

我不是故意使用循环，因为隐藏实例可以有一个工作簿，您可能想保存它

如果需要，可以将上述代码转换为VB脚本文档，您可以直接从桌面运行该文档

不幸的是，我无法控制所需的更改

你到底是什么意思？VBA密码是否受保护？如果没有，那么我的建议仍然与之前相同

---

这是一个糟糕的编程案例。即使我们给出了关闭的密码 所有隐藏的Excel实例，这对您没有帮助。因为下次你 运行该宏，您将再次面临相同的问题。为什么不编辑 现有代码和add Application.Visible=末尾为True？是 VBA密码保护？–锡德哈特路28分钟前

---

我遇到了一个类似的问题，通过代码行重新排序解决了这个问题

查找类似以下内容的行

ActiveWorkbook。关闭
，这可能是无法取消隐藏会话的原因

如果您能找到它，请将
Application.Visible=True
放在它前面，然后瞧。
作为代码：

sub runthis()
    dim xl as object
    set xl = new excel.application 'create session
    xl.workbooks.open filename:= "«yourpath»" 'open wb in the new session
    xl.visible=true 'this is what you need, show it up!
    'rest of the code
end sub

!

打开Word（假设您有），然后在那里打开VBA编辑器，然后打开即时窗口（Ctrl+G）并键入：

Getobject（，“Excel.Application”）.Visible=true

然后按enter键。
这是一种编程不良的情况。即使我们给出一个代码来关闭所有隐藏的Excel实例，这也帮不了你。因为下次运行该宏时，您将再次面临相同的问题。为什么不编辑现有代码并在末尾添加
Application.Visible=True
？VBA密码受保护吗？@SiddharthRout我完全同意（你应该看到代码其余部分的状态！）。我只是需要运行应用程序来生成一些报告，当我忘记保持VBE打开时，我已经厌倦了必须终止会话。不幸的是，我无法控制所需的更改。就像我说的，这没什么大不了的，但我只是想知道是否有人知道快捷键或者什么东西可以把它带回来。如果您打开任何excel文件，它将使当前excel实例可见。@CaBieberach这是一个很好的选择。以前从未注意过这种行为。谢谢你，悉达多，我会去的。我的意思是，我不能进行更改，在我的位置上，进行简单、一行代码更改的官僚作风是可怕的，所以我甚至不想去那里。这不值得这么痛苦！：）