使用 VBA 隐藏 Excel 工作表

Question

我有一个包含三张纸的 Excel 电子表格。其中一张表格包含其他一张表格的公式。

是否有一种编程方式来隐藏包含这些公式的工作表？

Answer 1

要从 UI 中隐藏，请使用“格式”>“工作表”>“隐藏”

要以编程方式隐藏，请使用

Visible

对象的

Worksheet

属性。如果您以编程方式执行此操作，则可以将工作表设置为“非常隐藏”，这意味着它无法通过 UI 取消隐藏。

ActiveWorkbook.Sheets("Name").Visible = xlSheetVeryHidden 
' or xlSheetHidden or xlSheetVisible

您还可以通过 VBA IDE 中工作表的属性窗格设置 Visible 属性 (ALT+F11)。

Answer 2

您可以使用 VBA 宏以编程方式完成此操作。您可以使工作表隐藏或非常隐藏：

Sub HideSheet()

    Dim sheet As Worksheet

    Set sheet = ActiveSheet

    ' this hides the sheet but users will be able 
    ' to unhide it using the Excel UI
    sheet.Visible = xlSheetHidden

    ' this hides the sheet so that it can only be made visible using VBA
    sheet.Visible = xlSheetVeryHidden

End Sub

Answer 3

只是想为给出的答案添加更多细节。 您也可以使用

sheet.Visible = False

隐藏并

sheet.Visible = True

取消隐藏。

来源

Answer 4

只要工作表处于活动状态，这可以在一行中完成：

ActiveSheet.Visible = xlSheetHidden

但是，您可能不想这样做，特别是当您使用任何“选择”操作或使用更多 ActiveSheet 操作时。

Answer 5

我想回答你的问题，因为方法有很多种，这里我只讲一下被广泛使用的代码。

因此，为了隐藏工作表：

Sub try()
    Worksheets("Sheet1").Visible = xlSheetHidden
End Sub

如果您想学习所有方法，还有其他方法点击这里

Answer 6

我尝试隐藏多个工作表，这种情况下的 VBA 代码是什么样的？