Excel VBA nechráněný list

V Excelu máme možnost, pomocí které můžeme chránit naše Excel listy a soubory před odstraněním, přejmenováním a před uložením dat před jakýmikoli dalšími změnami, které nejsou nutné. Tato možnost se nazývá Protect Sheet and Protect Workbook, která je k dispozici v sekci Změny v pruhu nabídky Přezkum . Můžeme nastavit heslo, pomocí kterého můžeme vybraný list uložit z provedených změn. Ale to, co říkám, to lze také automatizovat pomocí kódu VBA. Ano, můžeme vytvořit kód nebo makro, pomocí kterého můžeme automaticky uzamknout list a sešit. Ale tento článek je jen o nechránění listu.

Zrušení ochrany archu je také docela snadný proces, jako je ochrana archu. Pro nechránění listu musíme zadat heslo, které jsme použili při zamykání tohoto listu. Pro nechránění listu stačí vybrat název listu a funkci nazvanou Unprotect . Pokud je to k dispozici ve VBA, pak je to jen jednorozměrný kód. Ale pokud tomu tak není, musíme hledat nějaký jiný způsob, jak to udělat, což uvidíme v níže uvedených příkladech.

Jak odemknout list v Excelu VBA?

Naučíme se, jak odemknout list v Excelu pomocí kódu VBA.

Tuto šablonu VBA Unprotect Sheet Excel si můžete stáhnout zde - VBA Unprotect Sheet Excel Template

VBA nechráněný list - Příklad č. 1

Nejprve bychom viděli jednoduchý příklad nechránění listu. Postupujte takto:

Krok 1: Nejprve otevřete modul z nabídky Vložit, jak je ukázáno níže.

Krok 2: Nyní napište podprogram listu VBA Unprotect. Nebo si můžeme vybrat libovolné jiné jméno, které jej definuje.

Kód:

 Sub VBA_Unprotect () End Sub

Krok 3: Definujte proměnnou nazvanou Worksheet pod jakýmkoli názvem. Název, který se podobá listu, jako je například ExSheet

Kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet End Sub

Krok 4: Nyní nastavte definovanou proměnnou listu s názvem listu, který chceme odemknout. Název tohoto listu je List1 .

Kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet Set ExSheet = Worksheet ("Sheet1") End Sub

Krok 5: Nyní přiřaďte funkci Unprotect, která je v rozevíracím seznamu VBA, k proměnné listu ExSheet .

Kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet Set ExSheet = Worksheet ("Sheet1") ExSheet.Unprotect End Sub

Krok 6: Nyní zadejte heslo, které jsme dali pro uzamčení tohoto listu. Zde je heslo „Open1212“. A to může být cokoli, co závisí na rozhodnutí uživatele.

Kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet Set ExSheet = Worksheet ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

Krok 7: Nyní nejprve ochráníme List1 kliknutím na záložku Recenze a výběrem možnosti Chránit list .

Krok 8: Zadejte heslo, které chceme, a kliknutím na Ok ochraňte list.

Krok 9: Znovu zadejte heslo pro potvrzení.

Krok 10: Jakmile to uděláme, uvidíme, že v tomto listu nemůžeme nic změnit, i když se to pokusíme. Nyní, abychom list nechránili, sestavíme náš písemný kód a spustíme jej.

Uvidíme, jakmile bude náš kód spuštěn, jsme nyní schopni provést změny v List1 .

Krok 11: Co když odstraníme nebo změníme řádek kódu, do kterého jsme vložili heslo, a zajistíme, aby funkce Odemknout fungovala, jak je uvedeno níže. Uvidíme, co se stane, pokud tak učiníme.

Kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet Set ExSheet = Worksheet ("Sheet1") ExSheet.Unprotect End Sub

Krok 12: Nyní znovu spusťte celý kód. Uvidíme, objeví se okno se zprávou, které bude vyžadovat zadání hesla. Sem vložte heslo, které jsme vybrali, při ochraně listu a klikněte na OK.

Tímto postupem také můžeme nechat chránit požadovaný list.

VBA nechráněný list - Příklad č. 2

Existuje jiný způsob nechránění pracovních listů. To je nejjednodušší a nejjednodušší způsob, jak to udělat. Postupujte podle následujících kroků:

Krok 1: Napište podprogram pro VBA Unprotect, jak je ukázáno níže.

Kód:

 Sub VBA_Unprotect2 () End Sub

Krok 2: Pomocí funkce Pracovní listy a vyberte list, který chceme odemknout. Zde je opět listem List1 .

Kód:

 Sub VBA_Unprotect2 () Worksheet ("Sheet1") End Sub

Krok 3: Podobně jako v příkladu 1 použijeme příkaz Unprotect spolu s heslem, které jsme použili při zamykání listu. Zde je naše heslo pro nechránění stejné jako „ Open1212 “.

Kód:

 Sub VBA_Unprotect2 () Pracovní listy ("List1"). Odemknout heslo: = "Open1212" End Sub

Nyní je náš kód dokončen. Chcete-li to otestovat, nejprve ochraňte list stejným způsobem jako v příkladu-1 a spusťte tento kód, abyste jej nechránili.

VBA nechráněný list - Příklad č. 3

Co když řeknu, můžeme znovu napsat kód, kde nemusíme vybrat název listu, který chceme nechránit. Ano, lze to provést pomocí smyčky. Postupujte podle následujících kroků:

Krok 1: Znovu otevřete modul a zapište podprogram listu VBA Unprotect, jak je ukázáno níže.

Kód:

 Sub VBA_Unprotect3 () End Sub

Krok 2: Pomocí DIM definujte proměnnou pro list jako list. Je to stejná linie, jakou jsme použili ve výše uvedených příkladech.

Kód:

 Sub VBA_Unprotect3 () Dim ExSheet As Worksheet End Sub

Krok 3: Otevřete smyčku For-Next, kde zapíšeme podmínky nechráněných listů.

Kód:

 Sub VBA_Unprotect3 () Dim ExSheet jako list pro další ExSheet End Sub

Krok 4: Napište podmínku pro každý otevřený aktivní sešit, vybere aktuální aktivní list, jak je znázorněno níže.

Kód:

 Sub VBA_Unprotect3 () Dim ExSheet jako list pro každou ExSheet v ActiveWorkbook.Worksheets Další ExSheet End Sub Sub

Krok 5: Nyní podobným způsobem, jak je vidět ve výše uvedených příkladech, použijeme definované funkce spolu s funkcí Unprotect pro odemknutí listu. Také zde můžeme nebo nemusí použít heslo. Toto je volitelný způsob.

Kód:

 Sub VBA_Unprotect3 () Dim ExSheet jako list pro každou ExSheet v ActiveWorkbook.Worksheets ExSheet.Unprotect Password: = "Open1212" Next ExSheet End Sub Sub

Zkompilujte kód a spusťte, pokud nebyla nalezena žádná chyba.

Takto můžeme odemknout jakýkoli otevřený aktuální list, aniž bychom si museli vybrat jeho název a posloupnost. Tento kód bude automaticky brát v úvahu list, který je aktuálně vybrán a otevřen.

Výhody Excel VBA nechráněný list

  • Výše uvedené procesy a příklady jsou nejjednodušší použít.
  • List můžeme odemknout oběma způsoby, přičemž v kódu uvedeme samotné heslo nebo bez něj heslo.
  • Funguje to stejným způsobem, jak list ručně rušíme.

Co si pamatovat

  • Vzhledem k tomu, že je tento proces poměrně snadno implementovatelný, nemusí se automatizace nijak zlepšovat.
  • Heslo můžeme změnit pokaždé, když opakujeme proces ochrany a nechránění listu.
  • Můžeme vybrat název listu nebo posloupnost listu, kterou chceme odemknout.
  • A jakmile to uděláte, uložte kód v Makru a umožněte vynikajícímu listu Excel chránit ztrátu kódu VBA.

Doporučené články

Toto je průvodce po nechráněném listu VBA. Zde diskutujeme o tom, jak odemknout list v Excelu pomocí kódu VBA spolu s praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. Veřejná proměnná VBA (příklady)
  2. Číslo formátu VBA s funkcí
  3. Varianta VBA s datovými typy
  4. VBA Randomize | Excel šablony
  5. VBA Environ

Kategorie:

VBA