Stejně jako můžete sešity a listy chránit heslem, můžete makro chránit heslem v Vynikat z pohledu (a popraveného).
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve vytvořte jednoduché makro, které chcete chránit.
Rozsah ("A1"). Hodnota = "Toto je tajný kód"
2. Dále klepněte na Nástroje, Vlastnosti VBAProject.
3. Na kartě Ochrana zaškrtněte „Zamknout projekt pro prohlížení“ a dvakrát zadejte heslo.
4. Klikněte na OK.
5. Uložte, zavřete a znovu otevřete soubor aplikace Excel. Zkuste zobrazit kód.
Zobrazí se následující dialogové okno:
Kód můžete stále spustit kliknutím na příkazové tlačítko, ale kód již nemůžete zobrazit ani upravit (pokud neznáte heslo). Heslo ke stažení souboru aplikace Excel je „snadné“.
6. Pokud chcete makro chránit heslem před spuštěním, přidejte následující řádky kódu:
Dim heslo jako varianta
heslo = Application.InputBox ("Zadejte heslo", "chráněno heslem")
Vyberte heslo případu
Případ je = nepravda
'nedělat nic
Case Is = "snadné"
Rozsah ("A1"). Hodnota = "Toto je tajný kód"
Případ Jinak
MsgBox „Nesprávné heslo“
Konec Vybrat
Výsledek po kliknutí na příkazové tlačítko na listu:
Vysvětlení: Makro používá metodu InputBox objektu Application. Pokud uživatelé kliknou na Storno, tato metoda vrátí hodnotu False a nic se nestane (InputBox zmizí). Tajný kód bude spuštěn pouze tehdy, když uživatel zná heslo (opět „snadné“). Pokud je zadané heslo nesprávné, zobrazí se MsgBox. Všimněte si, že uživatel se nemůže podívat na heslo v editoru jazyka, protože projekt je chráněn před zobrazením.
