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

时间:2016-11-18 14:25:00

标签: excel vba excel-vba

有没有办法最小化工作簿/工作表但能够保持表格打开? 我试过了代码:

application.visible=false

userform1.show vbmodeless

但是这会隐藏所有活动的工作簿,工具栏功能区也会消失。有没有办法最小化工作簿,但保持功能区显示和窗体打开?

1 个答案:

答案 0 :(得分:4)

在Excel 2010上测试

Sub Test()

    ActiveWindow.WindowState = xlMinimized
    UserForm1.Show

End Sub

这将最小化Excel中的所有工作簿,但会保持功能区和任何用户表单可见,如果您没有Application.ScreenUpdating = False,那么人们将能够在Excel的左下角看到工作簿。

如果您只想最小化单个工作簿,可以使用下面的代码

Credit to this answer on SO for the minimizing specific workbooks

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

如果您需要澄清任何内容,请告诉我