Võib-olla soovite selle makroga mitteaktiivsed töölehed peita. Excel ei võimalda peita töövihikus kõiki lehti; vähemalt üks peab olema kuvatud. Siiski saate peita kõik peale aktiivse lehe.
Kuidas makro töötab
Siinne makro liigub läbi töölehtede ja sobitab iga töölehe nime aktiivse lehe nimega. Iga kord, kui makro silmuseid teeb, peidab see kõik sobimatud töölehed.
Alammakro1()
1. samm: deklareerige oma muutujad
Dim ws töölehena
2. samm: alustage kõigi töölehtede sirvimist
For Every Ws In ThisWorkbook.Worksheets
3. samm: kontrollige iga töölehe nime
Kui ws.Name <> ThisWorkbook.ActiveSheet.Name Siis
4. samm: peitke leht
ws.Visible = xlSheetHidden
Lõpeta Kui
5. samm: liikuge järgmise töölehe juurde
Järgmine ws
Lõpeta alam
1. samm deklareerib objekti nimega ws. See samm loob mälumahuti iga töölehe jaoks, mida makro läbib.
2. samm alustab silmust, käsitades Excelil hinnata kõiki selle töövihiku töölehti. Pange tähele ThisWorkbooki ja ActiveWorkbooki erinevust. Objekt ThisWorkBook viitab koodi sisaldavale töövihikule. Objekt ActiveWorkBook viitab hetkel aktiivsele töövihikule. Sageli tagastavad nad sama objekti, kuid kui koodi käitav töövihik pole aktiivne töövihik, tagastavad nad erinevad objektid. Sel juhul ei taha te riskida lehtede peitmisega teistesse töövihikutesse, seega kasutate ThisWorkBook.
3. sammus võrdleb makro lihtsalt aktiivse lehe nime lehega, mida praegu silmustatakse.
Kui lehtede nimed on erinevad, peidab makro lehe 4. sammus.
5. sammus liigute järgmise lehe saamiseks tagasi. Kui kõik lehed on hinnatud, makro lõpeb.
Pange tähele, et kasutate makros xlsheetHidden. See atribuut rakendab vaikepeitmise olekut, mille saate tavaliselt lehel paremklõpsates ja valikul Peida. Selles peitmise vaikeolekus saab kasutaja paremklõpsata mis tahes vahekaarti ja valida Näita peidus, mis kuvab kõik peidetud lehed. Kuid mõni muu peitmise olek on salajasem kui vaikeseade. Kui kasutate lehtede peitmiseks funktsiooni xlSheetVeryHidden, ei näe kasutajad neid üldse – isegi kui nad paremklõpsavad vahekaarti ja valivad Näita peitmist. Ainus viis sel viisil peidetud lehe peitmiseks on kasutada VBA-d.
Kuidas makrot kasutada
Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Paremklõpsake projekti aknas projekti/töövihiku nimel.
Valige Lisa → Moodul.
Tippige või kleepige kood vastloodud moodulisse.