Du kanske vill dölja de inaktiva kalkylbladen med detta makro. Excel låter dig inte dölja alla ark i en arbetsbok; minst en måste visas. Du kan dock dölja allt utom det aktiva arket.
Hur makrot fungerar
Makrot här går igenom kalkylbladen och matchar varje kalkylbladsnamn med det aktiva bladets namn. Varje gång makrot loopar döljer det alla oöverträffade kalkylblad.
Sub Macro1()
'Steg 1: Deklarera dina variabler
Dim ws As Arbetsblad
'Steg 2: Börja gå igenom alla kalkylblad
För varje Ws In ThisWorkbook.Worksheets
'Steg 3: Kontrollera varje kalkylbladsnamn
Om ws.Name <> ThisWorkbook.ActiveSheet.Name Då
'Steg 4: Göm arket
ws.Visible = xlSheetHidden
Avsluta om
'Steg 5: Gå till nästa kalkylblad
Nästa ws
Avsluta Sub
Steg 1 deklarerar ett objekt som heter ws. Det här steget skapar en minnesbehållare för varje kalkylblad som makrot går igenom.
Steg 2 börjar loopningen och säger åt Excel att utvärdera alla kalkylblad i den här arbetsboken. Observera skillnaden mellan ThisWorkbook och ActiveWorkbook. ThisWorkBook-objektet hänvisar till arbetsboken som innehåller koden. ActiveWorkBook-objektet hänvisar till den för närvarande aktiva arbetsboken. De returnerar ofta samma objekt, men om arbetsboken som kör koden inte är den aktiva arbetsboken returnerar de olika objekt. I det här fallet vill du inte riskera att gömma ark i andra arbetsböcker, så du använder ThisWorkBook.
I steg 3 jämför makrot helt enkelt det aktiva arknamnet med arket som för närvarande slingras.
Om arknamnen är olika döljer makrot arket i steg 4.
I steg 5 går du tillbaka för att få nästa ark. När alla ark har utvärderats avslutas makrot.
Observera att du använder xlsheetHidden i ditt makro. Den här egenskapen tillämpar standardtillståndet för göm som du normalt skulle få när du högerklickar på ett ark och väljer Dölj. I detta standardläge kan en användare högerklicka på valfri flik och välja Visa, som visar alla dolda ark. Men en annan gömma tillstånd är mer hemlig än standard. Om du använder xlSheetVeryHidden för att dölja dina ark, kommer användare inte att kunna se dem alls – även om de högerklickar på en flik och väljer Visa. Det enda sättet att visa ett ark som är gömt på detta sätt är att använda VBA.
Hur man använder makrot
För att implementera detta makro kan du kopiera och klistra in det i en standardmodul:
Aktivera Visual Basic Editor genom att trycka på Alt+F11.
Högerklicka på projektets/arbetsbokens namn i projektfönstret.
Välj Infoga → Modul.
Skriv eller klistra in koden i den nyskapade modulen.