Skjule mapper når de ikke er i brug

Den simple løsning:
Skjul manuelt de faneblade som skal skjules (højreklik på fanebladnavn og tryk : Hide)
Stå på "forsiden" og optag en makro, som synliggør dit faneblad.(Højreklik på forsidens fanebladnavn og "unhide" det ark du vil vise og stil curser på A1)
Lav dernæst en knap på forsiden og knyt makroen til denne.

Og en lidt mere avanceret...

I ThisWorkbook sætter du:


Og i et modul

[div]Sub SkjulAlt()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        If wks.Name <> "Menu" Then
            wks.Visible = xlSheetHidden
        End If
    Next
End Sub

Sub VisEnkeltfane(fanenavn As String)
    SkjulAlt
    ActiveWorkbook.Worksheets(fanenavn).Visible = xlSheetVisible
End Sub

Sub KnapSheet1()
    VisEnkeltfane "Sheet1"
End Sub[div]

Bemærk at du skal rette "Menu" til navnet på den arkfane du gerne vil have er synlig altid.

Du skal så have en sådan en Knap makro for hver arkfane du gerne vil vise - den kan du knytte til knapper på din menu fane.