Dölja arbetsblad maximalt

Dölj arbetsblad

I detta tips visas hur vi kan dölja arbetsblad på ett effektivt sätt. Det kan komma väl till pass om vi ska utföra vissa operationer, där dessa åtgärder underlättas om det sker i dolda arbetsblad.

Hur gör vi om vi vill visa de dolda arbetsbladen?

Följande rader i koden nedan:
With wsBlad
       .Visible = xlSheetVeryHidden
End With

Ersätt med:

For Each wsBlad In ActiveWorkbook.Sheets
     wsBlad.Visible = True
Next wsBlad

Sub Dolj_Arbetsblad()
'© 2002 Alla rättigheter XL-Dennis
Dim wsBlad As Worksheet
Dim sSvar As String, sTitel As String

sTitel = "Dölja arbetsblad maximalt"

sSvar = "Vill du dölja de markerade arbetsbladen?" & vbNewLine _
            & "Minst ett arbetsblad måste vara synligt" & vbNewLine _
            & "i arbetsboken."

If MsgBox(sSvar, vbQuestion + vbYesNo, sTitel) = vbNo Then Exit Sub

On Error GoTo Felhantering

Application.ScreenUpdating = False

'Här döljs de markerade arbetsbladen i den aktiva arbetsboken
For Each wsBlad In ActiveWindow.SelectedSheets
     With wsBlad
           .Visible = xlSheetVeryHidden
     End With
Next wsBlad

Application.ScreenUpdating = True

Exit Sub

Felhantering:
MsgBox "Ett arbetsblad måste vara synligt" & vbNewLine _
            & "och inga diagramblad kan döljas.", vbCritical, _
            sTitel
End Sub