Chránený hárok Excel VBA

V programe Excel máme možnosť, pomocou ktorej môžeme chrániť naše vynikajúce hárky a súbory pred odstránením, premenovaním a uložením údajov pred akýmikoľvek inými zmenami, ktoré nie sú potrebné. Táto voľba sa volá Protect Sheet and Protect Workbook, ktorá je k dispozícii v sekcii Zmeny pod pásmom ponuky Recenzia . Môžeme nastaviť heslo, pomocou ktorého môžeme vybraný list uložiť z vykonaných zmien. Ale to, čo hovorím, sa dá tiež automatizovať pomocou kódu VBA. Áno, môžeme vytvoriť kód alebo makro, pomocou ktorého môžeme automaticky zablokovať list a zošit. Tento článok sa však týka len nechránenia listu.

Nechránenie ochrannej vrstvy je tiež celkom ľahký proces, ako ochrana ochrannej vrstvy. Na nechránenie listu je potrebné zadať heslo, ktoré sme použili pri zamykaní tohto listu. Na nechránenie hárka stačí vybrať názov pracovného hárka a funkciu s názvom Nechrániť . Ak je to dostupné vo VBA, ide iba o jednoriadkový kód. Ak to tak nie je, musíme hľadať iný spôsob, ako to uvidíme v nižšie uvedených príkladoch.

Ako odomknúť hárok v Excel VBA?

Naučíme sa, ako odomknúť hárok v programe Excel pomocou kódu VBA.

Túto šablónu VBA nechráneného listu Excel si môžete stiahnuť tu - šablónu VBA nechráneného listu Excel

VBA nechránený hárok - príklad č. 1

Najprv by sme videli jednoduchý príklad na nechránenie listu. Postupujte podľa nasledujúcich krokov:

Krok 1: Najskôr otvorte modul na karte ponuky Vložiť, ako je to znázornené nižšie.

Krok 2: Teraz napíšte podprogram listu VBA Unprotect. Alebo si môžeme zvoliť akékoľvek iné meno, ktoré ho definuje.

kód:

 Sub VBA_Unprotect () End Sub

Krok 3: Definujte premennú nazvanú Pracovný hárok pod ľubovoľným menom. Názov, ktorý sa podobá pracovnému hárku, napríklad ExSheet

kód:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet End Sub

Krok 4: Teraz nastavte definovanú premennú pracovného hárka s názvom hárku, ktorý chceme nechrániť. Názov tohto hárku je Sheet1 .

kód:

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

Krok 5: Teraz priraďte funkciu Unprotect, ktorá je v rozbaľovacom zozname VBA, k premennej pracovného hárka ExSheet .

kód:

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

Krok 6: Teraz zadajte heslo, ktoré sme dali na uzamknutie tohto hárku. Toto heslo je „Open1212“. A to môže byť čokoľvek, čo závisí od výberu používateľa.

kód:

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

Krok 7: Teraz najskôr chránime List1 kliknutím na záložku ponuky Review a výberom možnosti Protect Sheet .

Krok 8: Zadajte požadované heslo a kliknutím na tlačidlo OK list ochráňte.

Krok 9: Znovu zadajte heslo na potvrdenie.

Krok 10: Po dokončení uvidíme, že v tomto hárku nemôžeme nič zmeniť, aj keď sa o to pokúsime. Teraz, aby sme nechránili list, zostavíme náš napísaný kód a spustíme ho.

Uvidíme, keď bude náš kód spustený, teraz sme schopní vykonať zmeny v List1 .

Krok 11: Čo ak odstránime alebo zmeníme riadok kódu, do ktorého sme vložili heslo a zabezpečíme, aby funkcia Odomknúť fungovala tak, ako je to znázornené nižšie. Pozrime sa, čo sa stane, ak tak urobíme.

kód:

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

Krok 12: Teraz znova spustite celý kód. Uvidíme, zobrazí sa okno so správou, ktoré bude vyžadovať zadanie hesla. Sem vložte heslo, ktoré sme vybrali, pričom chráňte hárok a kliknite na tlačidlo OK.

Týmto procesom môžeme tiež nechrániť ochrannú vrstvu, ktorú chceme.

VBA nechránený hárok - príklad č. 2

Existuje iný spôsob nechránenia pracovných hárkov. Toto je najjednoduchší a najjednoduchší spôsob. Postupujte podľa nasledujúcich krokov:

Krok 1: Napíšte podprogram pre VBA Unprotect, ako je to znázornené nižšie.

kód:

 Sub VBA_Unprotect2 () End Sub

Krok 2: Použite funkciu Pracovné hárky a vyberte hárok, ktorý chceme nechrániť. Aj tu je týmto listom List1 .

kód:

 Sub VBA_Unprotect2 () Pracovné hárky ("Sheet1") End Sub

Krok 3: Podobným spôsobom ako v príklade 1 použijeme príkaz Unprotect spolu s heslom, ktoré sme použili pri zamykaní hárku. Tu je naše heslo na nechránenú ochranu rovnaké ako heslo „ Open1212 “.

kód:

 Sub VBA_Unprotect2 () Pracovné hárky ("List1"). Odblokovanie hesla: = "Open1212" End Sub

Teraz je náš kód dokončený. Aby ste to otestovali, najprv chráňte hárok rovnakým spôsobom ako v príklade 1 a spustite tento kód, aby ste ho nechránili.

VBA nechránený hárok - príklad č. 3

Čo keď poviem, môžeme znova napísať kód, v ktorom nemusíme vyberať názov hárku, ktorý chceme nechrániť. Áno, dá sa to urobiť pomocou slučky. Postupujte podľa nasledujúcich krokov:

Krok 1: Znovu otvorte modul a napíšte podprogram postupu VBA Unprotect sheet, ako je to znázornené nižšie.

kód:

 Sub VBA_Unprotect3 () End Sub

Krok 2: Použite DIM na definovanie premennej pre pracovný hárok ako tabuľky. Je to rovnaká línia, ktorú sme použili vo vyššie uvedených príkladoch.

kód:

 Sub VBA_Unprotect3 () Dim ExSheet As Worksheet End Sub

Krok 3: Otvorte slučku For-Next, kde napíšeme nechránené podmienky listu.

kód:

 Sub VBA_Unprotect3 () Dim ExSheet As Worksheet for Next ExSheet End Sub

Krok 4: Napíšte podmienku pre každý otvorený aktívny zošit, vyberie aktuálny aktívny pracovný hárok, ako je uvedené nižšie.

kód:

 Sub VBA_Unprotect3 () Dim ExSheet ako pracovný hárok pre každú ExSheet v ActiveWorkbook.Worksheets Next ExSheet End Sub Sub

Krok 5: Teraz podobným spôsobom, aký je uvedený vo vyššie uvedených príkladoch, použijeme na odblokovanie listu definované premenné spolu s funkciou Unprotect. Aj tu môžeme alebo nemusíme používať heslo. Toto je voliteľný spôsob.

kód:

 Sub VBA_Unprotect3 () Dim ExSheet ako pracovný hárok pre každú ExSheet v ActiveWorkbook.Worksheet ExSheet.Unprotect Password: = "Open1212" Next ExSheet End Sub Sub

Zostavte kód a spustite, ak sa nenašla žiadna chyba.

Takto môžeme odomknúť akýkoľvek otvorený aktuálny pracovný hárok bez toho, aby sme si vybrali jeho názov a postupnosť. Tento kód automaticky zohľadní ten hárok, ktorý je aktuálne vybratý a otvorený.

Výhody Excel VBA nechránený list

  • Vyššie uvedené procesy a príklady sú najjednoduchšie použiteľné.
  • List môžeme odomknúť oboma spôsobmi, pričom v kóde uvedieme samotné heslo alebo bez neho.
  • Funguje to rovnakým spôsobom, ako list manuálne nechránime.

Čo je potrebné pamätať

  • Keďže je tento proces pomerne ľahko implementovateľný, nemusí dôjsť k automatickému zlepšeniu.
  • Heslo môžeme zmeniť zakaždým, keď opakujeme proces ochrany a nechránenia listu.
  • Môžeme zvoliť názov hárku alebo postupnosť hárku, ktorý chceme nechrániť.
  • Akonáhle to urobíte, uložte kód do Makra, aby vynikajúci pracovný hárok ochránil stratený kód VBA.

Odporúčané články

Toto je sprievodca po nechránenom hárku VBA. Tu diskutujeme o tom, ako odomknúť hárok v programe Excel pomocou kódu VBA spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. Verejná premenná VBA (príklady)
  2. Formátové číslo VBA s funkciou
  3. Variant VBA s typmi údajov
  4. VBA náhodne Šablóny programu Excel
  5. VBA Environ

Kategórie:

VBA