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之外的所有内容，然后取消隐藏那些选定的内容。

ArrayIndexOutOfBoundException