Rovnako ako môžete zošity a pracovné listy chrániť heslom, môžete makro chránené heslom v Excel z pohľadu (a vykonaného).
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv si vytvorte jednoduché makro, ktoré chcete chrániť.
Rozsah ("A1"). Hodnota = "Toto je tajný kód"
2. Ďalej kliknite na Nástroje, Vlastnosti programu VBAProject.
3. Na karte Ochrana začiarknite políčko „Zamknúť projekt na zobrazenie“ a dvakrát zadajte heslo.
4. Kliknite na tlačidlo OK.
5. Uložte, zatvorte a znova otvorte súbor programu Excel. Skúste si pozrieť kód.
Zobrazí sa nasledujúce dialógové okno:
Kód môžete stále vykonať kliknutím na príkazové tlačidlo, ale kód už nemôžete zobrazovať ani upravovať (pokiaľ nepoznáte heslo). Heslo k stiahnuteľnému súboru Excel je „jednoduché“.
6. Ak chcete chrániť makro pred spustením heslom, pridajte nasledujúce riadky kódu:
Dim heslo ako variant
heslo = Application.InputBox ("Zadajte heslo", "chránené heslom")
Vyberte Heslo prípadu
Prípad je = nepravda
'nerob nič
Prípad je = „ľahký“
Rozsah ("A1"). Hodnota = "Toto je tajný kód"
Prípad inak
MsgBox „Nesprávne heslo“
Ukončiť výber
Výsledok po kliknutí na príkazové tlačidlo na hárku:
Vysvetlenie: Makro používa metódu InputBox objektu Application. Ak používatelia kliknú na položku Zrušiť, táto metóda vráti hodnotu False a nič sa nestane (InputBox zmizne). Tajný kód sa spustí iba vtedy, keď používateľ pozná heslo (opäť „ľahké“). Ak je zadané heslo nesprávne, zobrazí sa MsgBox. Všimnite si toho, že používateľ sa nemôže pozrieť na heslo v editore jazyka Visual Basic, pretože projekt je chránený pred zobrazením.
