最小化工作簿/工作表，但保持表单打开

Question

有没有一种方法可以最小化工作簿/工作表，但可以保持打开表单的状态？我已经尝试了代码：

application.visible=false

和

userform1.show vbmodeless

但是，这隐藏了所有活动的工作簿，并且工具栏的功能区也消失了。有没有一种方法可以最小化工作簿，但还要同时显示功能区和表单？

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

让我知道您是否需要澄清