Heslo projektu Excel VBA
Pokud chce vývojář skrýt kód projektu před ostatními uživateli, VBA nám k tomu poskytl nástroj, nyní pomocí tohoto nástroje můžeme heslem chránit jeden projekt nebo více projektů, když klikneme pravým tlačítkem na projekt, který získejte možnost pro vlastnosti projektu VBA a v segmentu ochrany můžeme projekt chránit heslem.
Když je kód na vysoké úrovni vystaven uživateli nebo čtenáři, vše, co musí udělat, je zkopírovat kód a začít jej používat, takže je lepší chránit váš kód heslem.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password_.png.webp)
Jak chránit heslem projekt VBA?
Podobně jako můžeme heslem chránit náš list, sešit, můžeme také chránit heslem kódy VBA, které jsme napsali.
Chraňte svůj projekt pomocí následujících kroků.
Krok 1: Vytvořte jednoduché makro, které je třeba chránit.
Kód:
Sub VBA_Project_Password () Range ("A1"). Value = "This is a VBA Projet Password Enabler" End Sub
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__2.png.webp)
Tento kód vloží do buňky A1 slovo „Toto je VBA Project Password Enabler“. Předpokládejme, že tento kód musíme chránit heslem.
Krok 2: V okně editoru jazyka Visual Basic klikněte na kartu „Nástroje“ a vyberte „Vlastnosti VBAProject“.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__3.png.webp)
Krok 3: Otevře se okno „VBAProject - Vlastnosti projektu“, které vypadá jako níže uvedené.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__4.png.webp)
Krok 4: V tomto okně můžeme pojmenovat projekt, můžeme napsat popis projektu a můžeme uvést i další argumenty.
V horní části tohoto okna vidíme dvě karty s názvem „Obecné“ a „Ochrana“. Vyberte možnost Ochrana.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__5.png.webp)
Krok 5: V této „ochraně“ musíme zadat heslo, které použijeme k ochraně projektu. Nejprve zaškrtněte políčko „Zamknout projekt pro zobrazení“.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__6.png.webp)
Krok 6: Nyní v části „Heslo pro zobrazení vlastností projektu“ zadejte heslo a znovu jej potvrďte, poté kliknutím na „OK“ zavřete výše uvedené okno.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__7.png.webp)
Nyní je náš projekt chráněn heslem, takže abychom mohli zobrazit vlastnosti projektu jako modul, uživatelské formuláře a kódy napsané uvnitř projektu, musíme použít heslo a zobrazit.
Uložte sešit, zavřete jej a znovu otevřete.
Přejděte do editoru jazyka a můžeme vidět níže uvedené okno.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__8.png.webp)
Protože je tento projekt uzamčen, neviděli jsme nic. Klikněte na ikonu PLUS na levé straně.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__9.png.webp)
Nyní vás požádáme o zadání hesla, abyste viděli vlastnosti projektu.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__10.png.webp)
Nyní musíme zadat heslo, které jsme použili při ochraně projektu.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__11.png.webp)
Jakmile je heslo zadáno, klikněte na „Ok“, můžeme vidět vlastnosti, jako jsou názvy listů, moduly a kódy.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__12.png.webp)
Pokud zadáte nesprávné heslo, zobrazí se okno se zprávou „Neplatné heslo“.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__13.png.webp)
Ke spuštění kódu zadejte pole pro zadání hesla
Pokud je ochrana projektu VBA jedna věc, pak je požádání uživatele o zadání hesla pro spuštění hesla jiná věc.
Níže uvedený kód vyzve uživatele k zadání hesla k provedení kódu.
Kód:
Sub VBA_Project_Password () Dim MyPassword As Variant Dim Password As String Password = 123 MyPassword = Application.InputBox ("Enter Your Password", "Password Required to Run the Macro") If MyPassword = Password Then Range ("A1"). Value = „Toto je VBA Project Password Enabler“ Else MsgBox „Incorrect Password“ End If End Sub
Po spuštění bude uživatel vyzván k zadání hesla.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__14.png.webp)
Pokud se heslo shoduje, bude úloha provedena, jinak dostaneme zprávu níže a ukončíme makro.
![](https://cdn.know-base.net/5660957/vba_project_password_how_to_protect_vba_code_with_password__15.png.webp)
Věci k zapamatování
- Bez hesla projektu je těžké dokument obnovit v aplikaci Excel, takže si musíte být naprosto jisti, jaké je vaše heslo.
- K prolomení hesla můžete použít doplňky třetích stran.