Tento tutoriál vás naučí, jak skrýt a zobrazit pracovní listy pomocí VBA.
Skrýt list ve VBA
Chcete -li skrýt list ve VBA, použijte vlastnost Visible listu.
Buď nastavte vlastnost Visible na FALSE:
| 1 | Pracovní listy („List1“). Viditelné = nepravdivé |
nebo nastavte vlastnost Visible na xlSheetHidden:
| 1 | Pracovní listy („List1“). Visible = xlSheetHidden |
Je to stejné, jako kdyby uživatel klikl pravým tlačítkem na kartu listu a vybral „skrýt“.
Odkrýt list
K odkrytí listu ve VBA použijte vlastnost Visible listu:
| 1 | Pracovní listy („List1“). Viditelné = Pravda |
nebo
| 1 | Pracovní listy („List1“). Visible = xlSheetVisible |
Skryté listy lze zobrazit kliknutím pravým tlačítkem v oblasti karty Pracovní list:
Velmi skryté listy
Vlastnost Sheet Visible má třetí možnost: xlSheetVeryHidden:
| 1 | Pracovní listy („List1“). Visible = xlSheetVeryHidden |
Velmi skryté Listy se skryjí po kliknutí pravým tlačítkem myši v oblasti karty Pracovní list:
Tento kód zabrání uživateli tabulky zobrazit kartu List v dolní části obrazovky. Rovněž skryje list před uživatelem, když klikne pravým tlačítkem na karty ve spodní části. Jediným způsobem, jak zjistit, že list existuje (nebo zobrazit list), je otevření editoru jazyka Visual Basic.
Odkryjte velmi skryté listy
Velmi skryté pracovní listy jsou viditelné stejně jako běžné skryté pracovní listy:
| 1 | Pracovní listy („List1“). Viditelné = Pravda |
nebo
| 1 | Pracovní listy („List1“). Visible = xlSheetVisible |
Skrýt / Odkrýt listy v editoru VBA
Vlastnost Viditelný list můžete také přepínat v editoru VBA:
Skrýt všechny karty pracovního listu
Můžete také chtít zcela skrýt oblast karty Pracovní list, abyste zabránili uživateli v přechodu na různé listy. Další informace o skrytí karet listu.
Skrýt / Zobrazit archy v chráněném sešitu
Než sešity můžete skrýt nebo zobrazit, musí být váš sešit nechráněný. Chcete -li zrušit ochranu struktury sešitu, použijte následující kód:
| 1 | ActiveWorkbook.Unprotect |
Pokud je struktura vašeho sešitu chráněna heslem, musíte místo toho provést toto:
| 1 | ThisWorkbook.Unprotect "heslo" |
Odkrýt všechny listy
Tento postup odkryje všechny listy v sešitu pomocí pro každou smyčku:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws As WorksheetActiveWorkbook.UnprotectZa každé ws v pracovních listechws.Visible = xlSheetVisibledalšíEnd Sub |
Všimněte si, že nejprve sešit sejmeme, pro případ, že by byl chráněn heslem.
