Denne opplæringen lærer deg hvordan du skjuler og skjuler regneark med VBA.
Skjul ark i VBA
For å skjule et ark i VBA, bruk regnearket Synlig eiendom.
Sett den synlige egenskapen til FALSK:
| 1 | Regneark ("Ark1"). Synlig = Feil |
eller sett eiendommen Synlig til xlSheetHidden:
| 1 | Regneark ("Ark1"). Synlig = xlSheetHidden |
Dette er det samme som om brukeren høyreklikket på regnearkfanen og valgte "skjul".
Skjul ark
Hvis du vil vise et ark i VBA, bruker du regnearket Synlig eiendom:
| 1 | Regneark ("Ark1"). Synlig = sant |
eller
| 1 | Regneark ("Ark1"). Synlig = xlSheetVisible |
Skjulte ark kan sees ved å høyreklikke i kategorien Regneark:
Veldig skjulte ark
Egenskapen Sheet Visible har et tredje alternativ: xlSheetVeryHidden:
| 1 | Regneark ("Ark1"). Synlig = xlSheetVeryHidden |
Svært skjulte ark er skjult når du høyreklikker i kategorien Regneark:
Denne koden forhindrer at regnearkbrukeren ser regnearkfanen nederst på skjermen. Det skjuler også regnearket for brukeren når de høyreklikker på fanene nederst. Den eneste måten å se at regnearket eksisterer (eller avsløre regnearket) er ved å åpne Visual Basic Editor.
Skjul veldig skjulte ark
Svært skjulte regneark blir synlige akkurat som vanlige skjulte regneark:
| 1 | Regneark ("Ark1"). Synlig = sant |
eller
| 1 | Regneark ("Ark1"). Synlig = xlSheetVisible |
Skjul / vis skjul i VBA -editoren
Du kan også bytte egenskapen Synlig regneark i VBA Editor:
Skjul alle regnearkfaner
Du vil kanskje også gjemme området Regneark -fanen helt for å forhindre at brukeren navigerer til forskjellige regneark. Finn ut mer om hvordan du skjuler faner i regneark.
Skjul / vis ark i Beskyttet arbeidsbok
Arbeidsboken din må være ubeskyttet før du kan skjule eller skjule regneark. Bruk følgende kode for å fjerne beskyttelsen av arbeidsbokstrukturen din:
| 1 | ActiveWorkbook.Beskytt |
Hvis arbeidsbokstrukturen din er passordbeskyttet, må du gjøre dette i stedet:
| 1 | ThisWorkbook.Unbeskytt "passord" |
Vis alle ark
Denne prosedyren vil vise alle regneark i en arbeidsbok ved å bruke en for hver løkke:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws Som regnearkActiveWorkbook.BeskyttFor hver uke i regnearkws.Visible = xlSheetVisibleNesteSlutt Sub |
Legg merke til at vi først avbeskytter arbeidsboken, bare hvis den var passordbeskyttet.
