Excel中的VBA宏，用于隐藏所有未选中的工作表

Question

我一直在使用以下VBA宏代码来隐藏除活动工作表以外的所有内容：

    Sub HideWorksheets()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub

是否有任何扩展选项，以便它可以隐藏除所选工作表之外的所有工作表？

Answer 1

您需要访问Windows（＃）。SelectedSheets 。 一种方法是隐藏除ActiveSheet之外的所有内容，然后取消隐藏“选定”内容。

Option Explicit

Sub HideWorksheets()
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    ' Hide all except activeone
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next
    ' Unhide selected worksheets
    For Each ws In ThisWorkbook.Windows(1).SelectedSheets
        ws.Visible = xlSheetVisible
    Next ws
    Application.ScreenUpdating = True
End Sub