VBA 宏隐藏表

Question

我知道我的问题到处都有答案，但我都试过了，我不确定我错过了什么，或者你有什么。基本上我在一个 Excel 电子表格中有大约 20 个选项卡。在工作簿打开时，我试图将它们全部隐藏，但这不起作用。当我的工作簿打开时，我看到工作表闪烁一秒钟，然后一切都像往常一样。我基本上是在遍历所有工作表并像这样隐藏它们......

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.Visible = xlSheethidden
Next ws

LogForm.Show

End Sub

我做错了什么？如果我只是这样做，我可以隐藏它们......

sheets("Project").visible=false

但由于用户可能会添加更多工作表，因此我试图确保我的代码是动态的。

Answer 1

有几种不同的方法可以让用户窗体可见而工作簿不可见。

在打开时最小化您的工作簿。

Private Sub Workbook_Open() 'This is in the Workbook Code
    Application.WindowState = xlMinimized
    UserForm1.Show xlModeless
End Sub

隐藏单个工作表。

Sub mySub()
    Dim ws as Worksheet: Set ws = ThisWorkbook.Sheets(1)

    ws.Visible = xlSheetHidden
End Sub

完全隐藏 Excel 窗口（仅显示用户窗体）

Sub mySub()
    UserForm1.Show xlModeless
    Application.Visible = False 'Can also be placed in Workbook_Open() to hide on open
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.Visible = True
End Sub

隐藏单个工作簿

Sub MySub()
    Windows("MyWorkbook").Visible = False
End Sub