Ez az oktatóanyag megtanítja, hogyan lehet elrejteni és megjeleníteni a munkalapokat a VBA segítségével.
Lap elrejtése a VBA -ban
Egy lap elrejtéséhez a VBA -ban használja a Látható munkalap tulajdonságot.
Állítsa a Látható tulajdonságot FALSE értékre:
| 1 | Munkalapok ("Sheet1"). Látható = Hamis |
vagy állítsa a Visible tulajdonságot xlSheetHidden értékre:
| 1 | Munkalapok ("Sheet1"). Látható = xlSheetHidden |
Ez ugyanaz, mintha a felhasználó jobb egérgombbal kattintana a munkalap fülre, és a „rejtés” lehetőséget választaná.
Táblázat megjelenítése
Egy lap megjelenítéséhez a VBA -ban használja a Látható munkalap tulajdonságot:
| 1 | Munkalapok ("Sheet1"). Visible = True |
vagy
| 1 | Munkalapok ("Sheet1"). Visible = xlSheetVisible |
A rejtett lapok megtekinthetők a jobb gombbal kattintva a Munkalap lapterületen:
Nagyon rejtett lapok
A Sheet Visible tulajdonságnak van egy harmadik lehetősége: xlSheetVeryHidden:
| 1 | Munkalapok ("Sheet1"). Visible = xlSheetVeryHidden |
A nagyon rejtett táblázatok el vannak rejtve, amikor a jobb gombbal kattintanak a Munkalap lapterületen:
Ez a kód megakadályozza, hogy a táblázatkezelő felhasználó láthassa a Munkalap lapot a képernyő alján. Ezenkívül elrejti a munkalapot a felhasználó elől, amikor a jobb egérgombbal kattint az alján lévő lapokra. A munkalap létezésének (vagy a munkalap elrejtésének) egyetlen módja a Visual Basic Editor megnyitása.
Nagyon rejtett lapok elrejtése
A nagyon rejtett munkalapok a szokásos rejtett munkalapokhoz hasonlóan láthatóvá válnak:
| 1 | Munkalapok ("Sheet1"). Visible = True |
vagy
| 1 | Munkalapok ("Sheet1"). Visible = xlSheetVisible |
Táblázatok elrejtése / megjelenítése a VBA szerkesztőben
A Munkalap látható tulajdonsága is átkapcsolható a VBA szerkesztőben:
Az összes munkalap lapjának elrejtése
Érdemes lehet teljesen elrejteni a Munkalap lapterületet is, hogy megakadályozza, hogy a felhasználó különböző munkalapokra navigáljon. További információ a munkalap lapjainak elrejtéséről.
Lapok elrejtése / megjelenítése a védett munkafüzetben
A munkafüzetnek védtelennek kell lennie, mielőtt elrejtheti vagy megjelenítheti a munkalapokat. A munkafüzet szerkezetének védelmének feloldásához használja a következő kódot:
| 1 | ActiveWorkbook.Védelmetlen |
Ha a munkafüzet szerkezete jelszóval védett, akkor ezt kell tennie:
| 1 | ThisWorkbook.Unprotect "password" |
Minden lap megjelenítése
Ez az eljárás megjeleníti a munkafüzet összes munkalapját, minden egyes ciklus használatával:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws munkalapkéntActiveWorkbook.VédelmetlenMinden egyes munkalaphozws.Visible = xlSheetVisibleKövetkezőEnd Sub |
Ne feledje, hogy először feloldjuk a munkafüzet védelmét, ha jelszóval védett.
