Tento tutoriál vás naučí, ako skryť a odkryť pracovné listy pomocou VBA.
Skryť hárok vo VBA
Ak chcete skryť hárok vo VBA, použite vlastnosť pracovného hárka Viditeľný.
Buď nastavte vlastnosť Visible na FALSE:
| 1 | Pracovné listy („List1“). Viditeľné = nepravdivé |
alebo nastavte vlastnosť Visible na xlSheetHidden:
| 1 | Pracovné listy („List1“). Visible = xlSheetHidden |
Je to rovnaké, ako keby používateľ kliknite pravým tlačidlom myši na kartu pracovného hárka a vybral „skryť“.
Odkryť hárok
Ak chcete odkryť hárok vo VBA, použite vlastnosť hárka Viditeľný:
| 1 | Pracovné listy („List1“). Viditeľné = Pravda |
alebo
| 1 | Pracovné listy („List1“). Visible = xlSheetVisible |
Skryté listy je možné zobraziť kliknutím pravým tlačidlom myši na oblasť karty Pracovný list:
Veľmi skryté listy
Vlastnosť Sheet Visible má tretiu možnosť: xlSheetVeryHidden:
| 1 | Pracovné listy („List1“). Viditeľné = xlSheetVeryHidden |
Veľmi skryté listy sa skryjú po kliknutí pravým tlačidlom myši na oblasť karty Pracovný list:
Tento kód zabráni používateľovi tabuľky vidieť kartu Pracovný list v spodnej časti obrazovky. Tiež skryje pracovný hárok pred používateľom, keď klikne pravým tlačidlom na karty v spodnej časti. Jediný spôsob, ako zistiť, či hárok existuje (alebo odkryť hárok), je otvorenie editora jazyka Visual Basic.
Odkryte veľmi skryté listy
Veľmi skryté pracovné listy sú zviditeľnené rovnako ako bežné skryté pracovné listy:
| 1 | Pracovné listy („List1“). Viditeľné = Pravda |
alebo
| 1 | Pracovné listy („List1“). Visible = xlSheetVisible |
Skryť / odkryť listy v editore VBA
V editore VBA môžete tiež prepnúť vlastnosť Viditeľný hárok:
Skryť všetky karty pracovného hárka
Môžete tiež úplne skryť oblasť karty Pracovný list, aby ste zabránili používateľovi v prechode na rôzne pracovné hárky. Prečítajte si viac o skrývaní kariet pracovného hárka.
Skryť / odkryť listy v chránenom zošite
Pred skrytím alebo odkrytím pracovných hárkov musí byť váš zošit nechránený. Na zrušenie ochrany štruktúry zošita použite nasledujúci kód:
| 1 | ActiveWorkbook. Zrušiť ochranu |
Ak je štruktúra vášho zošita chránená heslom, musíte to urobiť namiesto toho:
| 1 | ThisWorkbook.Unprotect "heslo" |
Odkryť všetky listy
Tento postup odkryje všetky pracovné hárky v zošite pomocou funkcie Pre každú slučku:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws As worksheetActiveWorkbook. Zrušiť ochranuZa každé ws v pracovných listochws.Visible = xlSheetVisibleĎalšieKoniec pod |
Všimnite si, že zošit najskôr zrušíme, pre prípad, že by bol chránený heslom.
