Du ønsker måske at skjule de inaktive regneark med denne makro. Excel lader dig ikke skjule alle ark i en projektmappe; mindst én skal vises. Du kan dog skjule alt undtagen det aktive ark.
Sådan fungerer makroen
Makroen her går gennem regnearkene og matcher hvert regnearks navn med det aktive arks navn. Hver gang makroen går i løkker, skjuler den ethvert uovertruffent regneark.
Undermakro1()
Trin 1: Erklær dine variabler
Dim ws As Arbejdsark
Trin 2: Begynd at gennemgå alle arbejdsark
For hver ws In ThisWorkbook.Worksheets
Trin 3: Kontroller hvert regnearks navn
Hvis ws.Name <> ThisWorkbook.ActiveSheet.Name Så
Trin 4: Skjul arket
ws.Visible = xlSheetHidden
Afslut Hvis
Trin 5: Gå videre til næste regneark
Næste ws
Slut Sub
Trin 1 erklærer et objekt kaldet ws. Dette trin opretter en hukommelsesbeholder for hvert regneark, som makroen går igennem.
Trin 2 begynder loopingen og beder Excel om at evaluere alle regneark i denne projektmappe. Bemærk forskellen mellem ThisWorkbook og ActiveWorkbook. ThisWorkBook-objektet henviser til den projektmappe, der indeholder koden. ActiveWorkBook-objektet henviser til den aktuelt aktive projektmappe. De returnerer ofte det samme objekt, men hvis projektmappen, der kører koden, ikke er den aktive projektmappe, returnerer de forskellige objekter. I dette tilfælde vil du ikke risikere at skjule ark i andre projektmapper, så du bruger ThisWorkBook.
I trin 3 sammenligner makroen simpelthen navnet på det aktive ark med det ark, der i øjeblikket bliver sløjfet.
Hvis arknavnene er forskellige, skjuler makroen arket i trin 4.
I trin 5 går du tilbage for at få det næste ark. Når alle ark er evalueret, slutter makroen.
Bemærk at du bruger xlsheetHidden i din makro. Denne egenskab anvender standardskjultilstanden, du normalt ville få, når du højreklikker på et ark og vælger Skjul. I denne standardskjultilstand kan en bruger højreklikke på en hvilken som helst fane og vælge Vis, som viser alle skjulte ark. Men en anden skjuletilstand er mere hemmelig end standardtilstanden. Hvis du bruger xlSheetVeryHidden til at skjule dine ark, vil brugerne slet ikke kunne se dem - selvom de højreklikker på en fane og vælger Vis. Den eneste måde at vise et ark skjult på denne måde er at bruge VBA.
Sådan bruger du makroen
For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:
Aktiver Visual Basic Editor ved at trykke på Alt+F11.
Højreklik på projektets/projektmappens navn i projektvinduet.
Vælg Indsæt → Modul.
Indtast eller indsæt koden i det nyoprettede modul.