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 (#). 선택 시트에 액세스해야합니다. 한 가지 방법은 ActiveSheet를 제외한 모든 것을 숨긴 다음 Selected를 숨기기 해제하는 것입니다.

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