/ / Ochrana heslem Excel Macro

Ochrana heslem aplikace Excel Macro

Stejně jako můžete sešity a pracovní sešity chránit heslem, můžete ochrana heslem makra v Vynikat z pohledu (a provedení).

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

1. Nejprve vytvořte jednoduché makro, které chcete chránit.

Range("A1").Value = "This is secret code"

2. Dále klepněte na příkaz Nástroje, vlastnosti VBAProject.

Klepněte na příkaz Nástroje a vlastnosti VBAProject.

3. Na kartě Ochrana zkontrolujte "Zamknout projekt pro prohlížení" a dvakrát zadejte heslo.

Zadejte heslo dvakrát

4. Klepněte na tlačítko OK.

5. Uložte, zavřete a znovu otevřete soubor aplikace Excel. Pokuste se zobrazit kód.

Zobrazí se následující dialogové okno:

Heslo chráněno před zobrazením

Kód můžete stále spustit kliknutím na příkazové tlačítko, ale kód již nemůžete zobrazit ani upravovat (pokud neznáte heslo). Heslo pro soubor aplikace Excel ke stažení je "snadné".

6. Chcete-li ochranu heslem chránit před heslem popraven, přidejte následující řádky kódu:

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")

Select Case password
    Case Is = False
        "do nothing
    Case Is = "easy"
        Range("A1").Value = "This is secret code"
    Case Else
        MsgBox "Incorrect Password"
End Select

Výsledek po klepnutí na příkazové tlačítko na listu:

Heslo chráněno před spuštěním

Vysvětlení: Makro používá metodu InputBox objektu aplikace. Pokud uživatel klikne na tlačítko Zrušit, tato metoda vrátí hodnotu Falešná a nic se nestane (InputBox zmizí). Pouze pokud uživatel pozná heslo znovu ("easy"), bude proveden tajný kód. Pokud je zadané heslo nesprávné, zobrazí se MsgBox. Všimněte si, že uživatel nemůže zkontrolovat heslo v Editoru jazyka, protože projekt je chráněn před zobrazením.

Také si přečtěte: