Supposing du har en arbeidsbok med Ark1, Ark2 og Sheet3 er skjult, kan følgende VBA-kode hjelpe deg raskt vise dem og andre klikk vil skjule dem igjen. Gjør følgende: 
 1. Klikk Developer > Visual Basic, og en ny Microsoft Visual Basic for Applications vinduet vil vise, klikker du Sett > Modul, og skriv deretter inn følgende kode i modulen. 
 Sub ToggleHideUnhideDataSheets () Application.ScreenUpdating = FalseDim wb Som WorkbookDim ShtNames () Som VariantSet wb = ActiveWorkbookShtNames = Array ("Ark1", "Ark2", "Sheet3") For i = 0 For å UBound (ShtNames) wb.Sheets (ShtNames (i)). Synlige = Ikke wb.Sheets (ShtNames (i)). VisibleNext iApplication.ScreenUpdating = TrueEnd Subin koden ovenfor, de ShtNames = Array ("Sheet1 "," Ark2 "," Sheet3 ") er en variabel, kan du endre de skjulte regnearknavnene som du trenger. 
 2. Deretter trykker F5 for å kjøre koden, og de skjulte ark har blitt vist, dersom du ønsker å skjule dem igjen, trykk F5-tasten igjen. 
 

