Ndonjëherë ju duhet të dërgoni librin tuaj të punës Excel në botë me fletë pune specifike të mbrojtura. Nëse konstatoni se vazhdimisht mbroni dhe mos mbroni fletët përpara se të shpërndani librat e punës, makroja këtu mund t'ju ndihmojë.
Si funksionon makroja
Kodi aktivizohet nga ngjarja BeforeClose e librit të punës. Kur përpiqeni të mbyllni librin e punës, kjo ngjarje ndizet, duke ekzekutuar kodin brenda. Makroja mbron automatikisht fletën e specifikuar me fjalëkalimin e dhënë dhe më pas ruan librin e punës:
Nën-libër pune privat_BeforeClose (Anulo si Boolean)
'Hapi 1: Mbroni fletën me një fjalëkalim
Fletët ("Fleta1"). Mbrojtja e fjalëkalimit:="KUQ"
'Hapi 2: Ruani librin e punës
ActiveWorkbook.Ruaj
Fundi Nën
Në Hapin 1, ju jeni duke specifikuar qartë se cilën fletë të mbroni - Sheet1, në këtë rast. Ju jepni gjithashtu argumentin e fjalëkalimit, Fjalëkalimi:=”RED”, i cili përcakton fjalëkalimin e nevojshëm për të hequr mbrojtjen.
Ky argument fjalëkalimi është opsional. Nëse e hiqni atë, fleta do të mbrohet ende, por nuk do t'ju duhet një fjalëkalim për ta hequr atë.
Fjalëkalimet e Excel janë të ndjeshme ndaj shkronjave të vogla, kështu që duhet t'i kushtoni vëmendje fjalëkalimit të saktë dhe kapitalizimit që po përdorni.
Hapi 2 i thotë Excel-it të ruajë librin e punës. Nëse nuk e ruani librin e punës, mbrojtja e fletës që sapo keni aplikuar nuk do të jetë në fuqi herën tjetër që të hapet libri i punës.
Si të përdorni makro
Për të zbatuar këtë makro, duhet ta kopjoni dhe ngjisni në dritaren e kodit të ngjarjes Workbook_BeforeClose. Vendosja e makros këtu e lejon atë të funksionojë sa herë që përpiqeni të mbyllni librin e punës:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Në dritaren e projektit, gjeni emrin e projektit/librit tuaj të punës dhe klikoni shenjën plus pranë tij për të parë të gjitha fletët.
Klikoni This Workbook.
Në listën rënëse Ngjarje, zgjidhni ngjarjen BeforeClose.
Shkruani ose ngjitni kodin në modulin e krijuar rishtazi, duke modifikuar emrin e fletës (nëse është e nevojshme) dhe fjalëkalimin.
Fusni kodin tuaj në ngjarjen e Librit të Punës BeforeClose.
Vini re se mund të mbroni fletë shtesë duke shtuar deklarata shtesë përpara deklaratës Activeworkbook.Save.