最小化工作簿/工作表但保持窗体打开

Question

有没有办法将工作簿/工作表最小化，但仍能保持表单打开状态？ 我已经尝试了以下代码：

application.visible=false

并且

userform1.show vbmodeless

但这会隐藏所有活动工作簿，而且工具栏和功能区也会消失。有没有办法将工作簿最小化，同时保持功能区和窗体打开？

- NoobProgrammer

Answer 1

在Excel 2010上测试通过

Sub Test()

    ActiveWindow.WindowState = xlMinimized
    UserForm1.Show

End Sub

这将最小化Excel中的所有工作簿，但会保留功能区和任何用户窗体可见。如果没有Application.ScreenUpdating = False，则人们将能够看到Excel左下角的工作簿。

---

如果您只想最小化单个工作簿，可以使用以下代码。 感谢SO上的这个答案，用于最小化特定的工作簿

Sub test()

    Dim wbName As Window

    Set wbName = ActiveWorkbook.Windows(1)'You can use Windows("[Workbook Name]") as well

    wbName.Visible = False
    wbName.Visible = True

End Sub

如果您需要澄清任何事情，请让我知道。

- Mr.Burns

---

在“ActiveWorkbook.Windows(1).Visible = False”这行代码中，“windows(1)”是什么意思？数字1代表什么？ - NoobProgrammer

当您打开多个工作簿时，它们通常都会保留在单个窗口中，数字“1”表示它们被打开的顺序。 - Mr.Burns

如果我只想最小化一个特定的工作簿怎么办？我该如何找到它的编号或者是否可以通过“Workbook（“工作簿名称”）”来实现？ - NoobProgrammer

我更新了我的回答，应该涵盖了你的问题。至于为什么我设置了 Activeworkbook.Windows()，我进行了更多的尝试，发现你不能使用 .Visible = True 再次使工作簿变为可见。 - Mr.Burns