Automatisk "skjul" af ikke brugte faner.

Jeg har aldrig oplevet, at man kan skjule faner i Excels regneark. Men en alternativ løsning kunne være, at du beskyttede fanerne mod ændringer?

Hvis du højre klikker på en fane, så er der et menu punkt som hedder skjul. Derved fjerne du den fane visuelt.
Du kan så vælge VIS igen for at se fanen igen.

Blot til inspiration -dette vil skjule alle ark på nær nr.2:


    Dim i, NumSheets As Integer
    NumSheets = ThisWorkbook.Sheets.Count
    For i = 1 To NumSheets
        If Not i = 2 Then
            Sheets(i).Select
            ActiveWindow.SelectedSheets.Visible = False
        End If
    Next i

Hej tjacob

Det virker. tak.
Bøvlede lidt med hvis fanen allerede ikke er synlig, så fejlede Sheets(i).select, men det tror jeg at jeg har løst vi at gøre alle synlig inden jeg køre din rutine.

Send mig et svar.

OK, -svar

Du kan teste i loopet om et ark er synligt i forvejen:

    Dim i, NumSheets As Integer
    NumSheets = ThisWorkbook.Sheets.Count
    For i = 1 To NumSheets
        If Not i = 2 Then
            If Sheets(i).Visible = True Then
                Sheets(i).Select
                ActiveWindow.SelectedSheets.Visible = False
            End If
        End If
    Next i

Faktisk behøver man slet ikke Selecte:

    Dim i, NumSheets As Integer
    NumSheets = ThisWorkbook.Sheets.Count
    For i = 1 To NumSheets
        If Not i = 2 Then
            If Sheets(i).Visible = True Then Sheets(i).Visible = False
        End If
    Next i

tak for det. Er simplere end det jeg lavede. :-)