Denna handledning lär dig hur du döljer och döljer kalkylblad med VBA.
Dölj blad i VBA
Om du vill dölja ett blad i VBA använder du kalkylbladets synliga egenskap.
Ange antingen den synliga egenskapen till FALSE:
| 1 | Arbetsblad ("Ark1"). Synlig = falskt |
eller ställ in egenskapen Synlig till xlSheetHidden:
| 1 | Arbetsblad ("Ark1"). Synlig = xlSheetHidden |
Detta är detsamma som om användaren högerklickade på fliken kalkylblad och valde "dölj".
Unhide Sheet
Om du vill visa ett blad i VBA använder du kalkylbladet Synlig egenskap:
| 1 | Arbetsblad ("Sheet1"). Visible = True |
eller
| 1 | Arbetsblad ("Sheet1"). Visible = xlSheetVisible |
Dolda blad kan ses genom att högerklicka i flikområdet Arbetsblad:
Mycket dolda ark
Egenskapen Sheet Visible har ett tredje alternativ: xlSheetVeryHidden:
| 1 | Arbetsblad ("Sheet1"). Visible = xlSheetVeryHidden |
Mycket dolda ark döljs när du högerklickar i flikområdet Arbetsblad:
Denna kod hindrar kalkylarkanvändaren från att se fliken Arbetsblad längst ned på skärmen. Det döljer också kalkylbladet för användaren när de högerklickar på flikarna längst ner. Det enda sättet att se att kalkylbladet finns (eller ta bort kalkylbladet) är genom att öppna Visual Basic Editor.
Visa mycket dolda ark
Mycket dolda kalkylblad synliggörs precis som vanliga dolda kalkylblad:
| 1 | Arbetsblad ("Sheet1"). Visible = True |
eller
| 1 | Arbetsblad ("Sheet1"). Visible = xlSheetVisible |
Dölj / ta bort ark i VBA -redigeraren
Du kan också växla egenskapen Synlig kalkylblad i VBA -redigeraren:
Dölj alla kalkylblad
Du kanske också vill dölja området Arbetsbladsfliken helt och hållet för att förhindra att användaren navigerar till olika kalkylblad. Läs mer om att dölja flikar i kalkylblad.
Dölj / ta bort ark i skyddad arbetsbok
Din arbetsbok måste vara oskyddad innan du kan dölja eller dölja kalkylblad. För att avskydda din arbetsbokstruktur använder du följande kod:
| 1 | ActiveWorkbook.Onskydda |
Om din arbetsbokstruktur är lösenordsskyddad måste du göra detta istället:
| 1 | ThisWorkbook.Unprotect "lösenord" |
Ta bort alla blad
Den här proceduren visar alla kalkylblad i en arbetsbok med hjälp av en för varje loop:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws Som arbetsbladActiveWorkbook.OnskyddaFör varje ws i kalkylbladws.Visible = xlSheetVisibleNästaAvsluta Sub |
Lägg märke till att vi först avskyddade arbetsboken, bara om den var lösenordsskyddad.
