VBA til ny knap der Skjuler linier

Den meget hurtige udgave, der f.eks. ikke tjekker for, om et ark er låst:

Sub SkjulKolonner()
        ActiveSheet.Columns("L:R").EntireColumn.Hidden = True
        ActiveSheet.Columns("W:X").EntireColumn.Hidden = True
        ActiveSheet.Columns("Z:AE").EntireColumn.Hidden = True
        ActiveSheet.Columns("AI:AJ").EntireColumn.Hidden = True
        ActiveSheet.Columns("AP:AU").EntireColumn.Hidden = True
        ActiveSheet.Columns("BC:BG").EntireColumn.Hidden = True
End Sub

Sættes ind i et modul, således at den kan anvendes på alle ark. Du kan så kalde den fra dine knapper.
Denne viser kolonnerne igen:

Sub VisKolonner()
        ActiveSheet.Columns("A:IV").EntireColumn.Hidden = False
End Sub

Jeg har sat den sidste kolonne til IV fordi dette er grænsen i Excel 2003 (nr. 256). Men denne kan naturligvis ændres til enten din sidste BG eller til grænsen i Excel 2007 eller senere, XFD.

Hej Natkatten

Du får de lovede point.
Jeg kan jo se den virker, men du har ret i det er et problem den ikke virker når arket er beskyttet!


Jeg ved godt det ikke var en del af spørgsmålet, men kan du tilføje det i koden :)

Du styrer dette vha. hhv. ActiveSheet.Unprotect og ActiveSheet.Protect. F.eks. a la dette:

Sub SkjulKolonner()

Application.ScreenUpdating = False
ActiveSheet.Unprotect
        ActiveSheet.Columns("L:R").EntireColumn.Hidden = True
        ActiveSheet.Columns("W:X").EntireColumn.Hidden = True
        ActiveSheet.Columns("Z:AE").EntireColumn.Hidden = True
        ActiveSheet.Columns("AI:AJ").EntireColumn.Hidden = True
        ActiveSheet.Columns("AP:AU").EntireColumn.Hidden = True
        ActiveSheet.Columns("BC:BG").EntireColumn.Hidden = True
ActiveSheet.Protect
Application.ScreenUpdating = True

End Sub

Tak NatKat
dagens mand i skysovs :)