Denne vejledning lærer dig, hvordan du skjuler og fjerner regneark med VBA.
Skjul ark i VBA
For at skjule et ark i VBA skal du bruge regnearket Synlig ejendom.
Indstil enten den synlige ejendom til FALSK:
| 1 | Regneark ("Ark1"). Synlig = Falsk |
eller indstil den synlige egenskab til xlSheetHidden:
| 1 | Regneark ("Ark1"). Synlig = xlSheetHidden |
Dette er det samme som hvis brugeren højreklikker på fanen regneark og vælger "skjul".
Skjul ark
Hvis du vil vise et ark i VBA, skal du bruge regnearket Synlig egenskab:
| 1 | Regneark ("Ark1"). Synligt = sandt |
eller
| 1 | Regneark ("Ark1"). Synlig = xlSheetVisible |
Skjulte ark kan ses ved at højreklikke på fanen Regneark:
Meget skjulte ark
Egenskaben Sheet Synlig har en tredje mulighed: xlSheetVeryHidden:
| 1 | Regneark ("Ark1"). Synlig = xlSheetVeryHidden |
Meget skjulte ark er skjult, når der højreklikkes på fanen Regneark:
Denne kode forhindrer regnearksbrugeren i at se fanen Regneark nederst på skærmen. Det skjuler også regnearket for brugeren, når de højreklikker på fanerne nederst. Den eneste måde at se, at regnearket eksisterer (eller fjerne regnearket), er ved at åbne Visual Basic Editor.
Skjul meget skjulte ark
Meget skjulte regneark gøres synlige ligesom almindelige skjulte regneark:
| 1 | Regneark ("Ark1"). Synligt = sandt |
eller
| 1 | Regneark ("Ark1"). Synlig = xlSheetVisible |
Skjul / vis ark i VBA -editoren
Du kan også skifte egenskaben Synlig regneark i VBA Editor:
Skjul alle regnearkfaner
Du vil muligvis også helt skjule området Regneark -fane for at forhindre, at brugeren navigerer til forskellige regneark. Lær mere om at skjule faner i regneark.
Skjul / vis ark i Beskyttet projektmappe
Din projektmappe skal være ubeskyttet, før du kan skjule eller afsløre regneark. For at afbeskytte din projektmappestruktur skal du bruge følgende kode:
| 1 | ActiveWorkbook.Beskyt |
Hvis din projektmappestruktur er beskyttet med en adgangskode, skal du gøre dette i stedet:
| 1 | ThisWorkbook.Unprotect "password" |
Vis alle ark
Denne procedure vil vise alle regneark i en projektmappe ved hjælp af en for hver sløjfe:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws Som regnearkActiveWorkbook.BeskytFor hver gang i regnearkws.Visible = xlSheetVisibleNæsteAfslut Sub |
Bemærk, at vi først afbeskytter projektmappen, bare hvis den var beskyttet med adgangskode.
