Ju mund të dëshironi të fshehni fletët e punës joaktive me këtë makro. Excel nuk ju lejon të fshehni të gjitha fletët në një libër pune; të paktën një duhet të shfaqet. Megjithatë, ju mund të fshehni të gjitha, përveç fletës aktive.
Si funksionon makroja
Makro këtu kalon nëpër fletët e punës dhe përputhet me emrin e çdo flete pune me emrin e fletës aktive. Sa herë që lakohet makro, ai fsheh çdo fletë pune të pakrahasueshme.
Nën makro1()
'Hapi 1: Deklaroni variablat tuaja
Dim ws As Fletë pune
'Hapi 2: Filloni të shikoni të gjitha fletët e punës
Për çdo ws Në këtë Libër pune.Fletët e punës
'Hapi 3: Kontrolloni emrin e çdo flete pune
Nëse ws.Name <> ThisWorkbook.ActiveSheet.Name then
'Hapi 4: Fshihni fletën
ws.E dukshme = xlSheetHidden
Fundi Nëse
'Hapi 5: Kaloni në fletën tjetër të punës
ws tjetër
Fundi Nën
Hapi 1 deklaron një objekt të quajtur ws. Ky hap krijon një kontejnerë memorie për çdo fletë pune që makro kalon.
Hapi 2 fillon looping, duke i thënë Excel të vlerësojë të gjitha fletët e punës në këtë libër pune. Vini re ndryshimin midis ThisWorkbook dhe ActiveWorkbook. Objekti ThisWorkBook i referohet librit të punës që përmban kodin. Objekti ActiveWorkBook i referohet librit të punës aktualisht aktiv. Ata shpesh kthejnë të njëjtin objekt, por nëse libri i punës që ekzekuton kodin nuk është libri aktiv i punës, ata kthejnë objekte të ndryshme. Në këtë rast, ju nuk dëshironi të rrezikoni fshehjen e fletëve në libra të tjerë të punës, ndaj përdorni ThisWorkBook.
Në hapin 3, makro thjesht krahason emrin e fletës aktive me fletën që aktualisht është duke u lakuar.
Nëse emrat e fletëve janë të ndryshëm, makro e fsheh fletën në hapin 4.
Në hapin 5, ju ktheni përsëri për të marrë fletën tjetër. Pasi të jenë vlerësuar të gjitha fletët, makro përfundon.
Vini re se përdorni xlsheetHidden në makro. Kjo veçori zbaton gjendjen e paracaktuar të fshehjes që do të merrnit normalisht kur klikoni me të djathtën mbi një fletë dhe zgjidhni Fshih. Në këtë gjendje të parazgjedhur të fshehjes, një përdorues mund të kliko me të djathtën në çdo skedë dhe të zgjedhë Unhide, e cila shfaq të gjitha fletët e fshehura. Por një tjetër shtet i fshehtë është më klandestin se i paracaktuar. Nëse përdorni xlSheetVeryHidden për të fshehur fletët tuaja, përdoruesit nuk do të jenë në gjendje t'i shohin ato fare - edhe nëse klikojnë me të djathtën në një skedë dhe zgjedhin "Unhide". Mënyra e vetme për të zbuluar një fletë të fshehur në këtë mënyrë është të përdorni VBA.
Si të përdorni makro
Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.
Zgjidhni Fut → Modul.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.