Ak ste distribuovali excelové zošity s chránenými hárkami, pravdepodobne dostanete zošity späť s hárkami, ktoré sú stále chránené. Často musíte pred pokračovaním v práci zrušiť ochranu pracovných hárkov v zošite. Ak zistíte, že neustále odstraňujete ochranu pracovných hárkov, toto makro môže byť len lístok.
Ako funguje makro
Kód sa spustí udalosťou Open zošita. Keď otvoríte zošit, táto udalosť sa spustí a spustí sa v ňom kód. Toto makro automaticky odblokuje ochranu zadaného hárka s daným heslom pri otvorení zošita:
Private Sub Workbook_Open()
'Krok 1: Chráňte hárok heslom
Tabuľky("Hárok1").Zrušiť ochranu hesla:="ČERVENÁ"
End Sub
Makro explicitne pomenuje hárok, ktorý chcete zrušiť ochranu — v tomto prípade Hárok1. Potom odovzdá heslo potrebné na odblokovanie hárku.
V heslách programu Excel sa rozlišujú veľké a malé písmená, takže dávajte pozor na presné heslo a veľké písmená, ktoré používate.
Ako používať makro
Ak chcete implementovať toto makro, musíte ho skopírovať a prilepiť do okna kódu udalosti Workbook_Open. Umiestnenie makra sem umožňuje jeho spustenie pri každom otvorení zošita:
Aktivujte Editor jazyka Visual Basic stlačením Alt+F11.
V okne projektu nájdite názov projektu/zošita a kliknutím na znamienko plus vedľa neho zobrazte všetky hárky.
Kliknite na Tento zošit.
V rozbaľovacom zozname Udalosť vyberte Otvoriť udalosť.
Zadajte alebo prilepte kód do novovytvoreného modulu a upravte názov hárku (ak je to potrebné) a heslo.
Zadajte svoj kód do udalosti Otvoriť zošit.