Tartománynevek elrejtése – VBA

Power BI Desktop alapok Hamarosan Megnézem Két Online délelőtt PowerQuery bevezető Hamarosan Megnézem Két online délelőtt Videó Megnézem - Excel makró alapok - Power BI alapok - Excel PIVOT mester Tanfolyamok - PowerQuery alapok

A professzionális Excel felhasználók gyakran dolgoznak névtartományokkal. Ez ugyebár azt jelenti, hogy egy tartományt elnevezünk, és a képletekben a tartomány címe helyett a nevét használjuk. A tartományok elnevezését a szerkesztőléc bal oldalán lévő Név mezőben vagy a Képletek szalagon található Névkezelőben lehet megadni.

A Dinamikus névtartományokról olvashatsz ebben a korábbi anyagban.

A nevek elrejtése

De mi van akkor, ha nem szeretném, hogy bárki lássa, vagy módosítsa melyik név melyik tartományoz tartozik? Simán előfordulhat.

A megoldás az, hogy egy makróparanccsal egy nevet, egy kis makró programmal pedig akár az összes nevet elrejthetjük. Ehhez át kell lépni a makrószerkesztő ablakába, és megnyitni a Parancs ablakot:

1. ALT-F11, Ez megnyitja a Makrószerkesztó ablakát.
2. majd Ctrl+G, Ez megnyitja a Makró parancsablakot, un. Immediate ablakot (Excel makró parancs felület)

Egy név eltüntetése

Írd be ezt a parancsot

Activeworkbook.Names("valami").visible = False / True

Ha az egyenlőség jel jobb oldalára FALSE kerül, akkor elrejti, ha TRUE, akkor láthatóvá teszi a megadott nevet.

Minden név elrejtése

Ehhez pedig egy rövid kis modult kell írni, majd lefuttatni:

Sub HideAllNames()
 Dim n As Name
     For Each n In ActiveWorkbook.Names
           If n.Visible = True Then n.Visible = False
     Next n
 End Sub

Az elrejtett tartományokra név szerint ettől függetlenül lehet hivatkozni, a képletekben!

Mire jó ez?

Arra, hogy véletlenül vagy szándékosan ne lehessen annyira egyszerűen visszafejteni vagy elrontani a modell-t. Az elrejtett nevek nem fognak látszódni a Név mezőben és a Névkezelőben sem.

Elrejtett nevek megjelenítése

Sub ShowAllNames()
 Dim n As Name
     For Each n In ActiveWorkbook.Names
           If n.Visible = False Then n.Visible = True
     Next n
 End Sub

Lássuk hogy megy ez