Worksheet.Visible 속성

Worksheet.Visible property

개체가 표시되는지 여부를 결정하는 XlSheetVisibility 값을 반환하거나 설정합니다.

 

xlSheetVeryHidden으로 숨긴 시트는 목록에 보이지 않습니다.

 

숨겨진 시트가 모두 xlSheetVeryHidden이면 Unhide메뉴가 비활성화됩니다.

 

아래 코드는 Sheet1을 숨기는 예제입니다.

Worksheets("Sheet1").Visible = False

 

아래 코드는 Sheet1을 화면에 표시하는 예제입니다.

Worksheets("Sheet1").Visible = True

 

아래 코드는 현재 통합 문서의 모든 시트를 화면에 표시하는 예제입니다.

Sub ShowAllSheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws

End Sub

 

아래 코드는 특정 시트만 표시하는 예제입니다.

Sub ShowSpecificSheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then
            ws.Visible = True
        Else
        End If
    Next ws

End Sub

 

아래 코드는 특정 시트의 상태에 따라 표시/숨기기를 합니다.

Sub ToggleWorksheetVisibility()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")

    If ws.Visible = xlSheetHidden Then
        ws.Visible = xlSheetVisible
    Else
        ws.Visible = xlSheetHidden
    End If
End Sub

 

아래 코드는 Sheet1을 제외한 모든 시트를 숨깁니다.

Sub HideSpecificSheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Visible = False
        Else
        End If
    Next ws

End Sub

 

아래 코드는 현재 활성화된 시트를 제외하고 모두 숨깁니다.

Sub HideAllExceptActive()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then
            ws.Visible = xlSheetHidden
        Else
        End If
    Next ws
End Sub