Hárok Excel VBA Unprotect
Existujú situácie, kedy chránime naše pracovné listy, aby sme zabránili používateľovi v manipulácii s pracovnými listami. Pri ochrane pracovného hárka zvyčajne zachovávame rovnaké heslo. V tomto článku vám ukážeme spôsob, ako zrušiť ochranu listu pomocou kódovania VBA.
Príklady
Príklad č
Zrušenie ochrany hárka je o 99% jednoduchšie ako jeho ochrana. Potrebujeme iba heslo na zrušenie ochrany pracovného hárka.
Úplne prvá vec, ktorú musíme urobiť, je spomenúť názov pracovného hárka, ktorý chceme odblokovať. Ak napríklad chcete zrušiť ochranu listu s názvom „Údaje o predaji“, váš kód VBA by mal byť taký.
Pracovné listy („Údaje o predaji“)
Potom vstúpte do metódy Unprotect.
Ako vidíme na obrázku vyššie, nevidíme žiadny druh zoznamu IntelliSense, ktorý by nám pomáhal. To robí prácu ťažšou, najmä pre nového učiaceho sa.
Aby som to prekonal, zvyčajne sa spolieham na vyhlásenie premennej VBA ako „pracovného hárka“.
Kód:
Sub Unpretect_Example1 () Dim Ws ako pracovný hárok End Sub
Teraz nastavte deklarovanú premennú na príslušný hárok.
Kód:
Sub Unpretect_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sales Data") End Sub
Teraz použite premennú na prístup ku všetkým vlastnostiam a metódam deklarovanej premennej.
Ako vidíte na obrázku vyššie, máme prístup ku všetkým vlastnostiam a metódam. V zozname IntelliSense vyberte metódu „Unprotect“.
Na odblokovanie ochrany hárka vyžaduje heslo. Nastavil som heslo ako „Excel @ 1234“, takže zadám rovnaké heslo.
Týmto sa zruší ochrana pracovného hárka s názvom „Údaje o predaji“.
Kód:
Sub Unpretect_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales Data") Ws.Unprotect Password: = "Excel @ 1234" End Sub
Pokiaľ heslo neexistuje, stačí použiť metódu „Unprotect“ a ignorovať parameter „Password“.
Kód:
Sub Unpretect_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales Data") 'Zmeňte názov pracovného hárka podľa vašich požiadaviek Ws.Unprotect' Ak nie je zadané heslo, stačí zadať metódu "UnProtect" End Sub
Ak existuje nejaké heslo, musíme ho zadať v úvodzovkách. V hesle sa rozlišujú veľké a malé písmená, preto si ich starostlivo pamätajte.
Príklad č. 2 - Zrušenie ochrany všetkých hárkov programu Excel jediným kliknutím
Videli sme, ako zrušiť ochranu konkrétneho pracovného hárka. Predstavte si, že máte veľa pracovných hárkov a všetky pracovné hárky sú chránené rovnakým heslom. Nemôžeme potom písať kódy pre každý pracovný hárok zvlášť.
V týchto prípadoch musíme pomocou slučiek prechádzať kolekciou objektov pracovného hárka a ľahko ich odomknúť.
Nasledujúci kód prepracuje všetky pracovné hárky a zruší ochranu listu.
Kód:
Sub Unpretect_Example2 () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets Ws.Unprotect Password: = "Excel @ 1234" 'Zmeňte heslo tak, ako ste spomenuli, a pritom ich chráňte. Ďalej Ws Koniec Sub
Príklad č. 3 - Špeciálne situácie
Situácia 1: Už ste si niekedy predstavovali, že zadané heslo je nesprávne. Ak je zadané heslo nesprávne, zobrazí sa chyba 1004: Run Time.
Na riešenie týchto chýb môžeme použiť voľbu „Pri chybe GoTo Label“. Nižšie uvedený kód je príkladom toho istého.
Kód:
Sub Unpretect_Example3 () Dim Ws ako pracovný hárok pre každé W v ActiveWorkbooku. Pracovné listy pri chybe GoTo Errormessage Ws.Unprotect Password: = "Excel @ 1234" 'Zmeňte heslo tak, ako ste spomenuli, a pritom ich chráňte. Chybová správa: MsgBox „Chybné heslo“ Ďalej Ws Koniec Sub
Vyššie uvedený kód zobrazí peknú správu so správou „Nesprávne heslo“.
Situácia 2: Keď je hárok chránený bez hesla a ak zadáte náhodné heslo, bude tento hárok naďalej chránený bez zobrazenia akýchkoľvek chýb.
Situácia 3: Keď je hárok chránený heslom, ale ak nezadáte žiadne heslo, zobrazí sa okno VBA ako pole na zadanie hesla na zadanie hesla.
Vo vyššie uvedenom vstupnom poli musíme na zrušenie ochrany pracovného hárka zadať heslo. Ak kliknete na tlačidlo Zrušiť, ukončí sa podproces VBA bez toho, aby niečo zobrazoval, pokiaľ nie je k dispozícii nejaká schránka správ.
