使用 VBA 隐藏 Excel 工作表

Question

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

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

Answer 1

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

要以编程方式隐藏，请使用Worksheet对象的Visible属性。 如果以编程方式执行此操作，则可以将工作表设置为“非常隐藏”，这意味着无法通过 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

如果您想学习所有方法，还有其他方法单击此处