Можда ћете желети да сакријете неактивне радне листове овим макроом. Екцел вам не дозвољава да сакријете све листове у радној свесци; најмање један мора бити приказан. Међутим, можете сакрити све осим активног листа.
Како функционише макро
Макро овде пролази кроз радне листове и повезује сваки назив радног листа са именом активног листа. Сваки пут када се макро понови, он сакрива било који радни лист без премца.
Подмакро1()
'Корак 1: Декларисајте своје променљиве
Дим вс Ас Ворксхеет
„Корак 2: Почните да петљате кроз све радне листове
За сваки вс Ин ТхисВоркбоок.Ворксхеетс
„Корак 3: Проверите назив сваког радног листа
Ако вс.Наме <> ТхисВоркбоок.АцтивеСхеет.Наме Тхен
„Корак 4: Сакријте лист
вс.Висибле = клСхеетХидден
Крај Ако
„Корак 5: Пређите на следећи радни лист
Нект вс
Енд Суб
Корак 1 декларише објекат који се зове вс. Овај корак креира меморијски контејнер за сваки радни лист кроз који макро прође.
Корак 2 почиње петљу, говорећи Екцел-у да процени све радне листове у овој радној свесци. Обратите пажњу на разлику између ТхисВоркбоок-а и АцтивеВоркбоок-а. Објекат ТхисВоркБоок се односи на радну свеску која садржи код. Објект АцтивеВоркБоок се односи на тренутно активну радну свеску. Често враћају исти објекат, али ако радна свеска која покреће код није активна радна свеска, враћају различите објекте. У овом случају, не желите да ризикујете сакривање листова у другим радним свескама, па користите ТхисВоркБоок.
У кораку 3, макро једноставно упоређује име активног листа са листом који се тренутно налази у петљи.
Ако су имена листова различита, макро сакрива лист у кораку 4.
У кораку 5, вратите се у петљу да бисте добили следећи лист. Након што се процене сви листови, макро се завршава.
Имајте на уму да користите клсхеетХидден у свом макроу. Ово својство примењује подразумевано стање сакривања које бисте иначе добили када десним тастером миша кликнете на лист и изаберете Сакриј. У овом подразумеваном стању сакривања, корисник може да кликне десним тастером миша на било коју картицу и изабере Унхиде, што приказује све скривене листове. Али друго скривено стање је тајније од подразумеваног. Ако користите клСхеетВериХидден да сакријете своје листове, корисници их уопште неће моћи да виде — чак и ако кликну десним тастером миша на картицу и изаберу Унхиде. Једини начин да откријете лист скривен на овај начин је да користите ВБА.
Како користити макро
Да бисте имплементирали овај макро, можете га копирати и налепити у стандардни модул:
Активирајте Висуал Басиц Едитор притиском на Алт+Ф11.
Кликните десним тастером миша на име пројекта/радне свеске у прозору пројекта.
Изаберите Инсерт→Модуле.
Откуцајте или налепите код у новокреирани модул.