Excel VBA nezaščiten list

V Excelu imamo možnost, s katero lahko svoje Excelove liste in datoteke zaščitimo pred izbrisom, preimenovanjem in shranjevanjem podatkov pred vsemi drugimi spremembami, ki niso potrebne. Možnost se imenuje Zaščitni list in Zaščitite delovni zvezek, ki je v razdelku Spremembe v meniju Pregled . Nastavimo lahko geslo, s katerim lahko izbran list shranimo pred vsemi opravljenimi spremembami. Kar pa pravim, je to mogoče avtomatizirati tudi s kodo VBA. Da, lahko ustvarimo kodo ali makro, s katerim lahko samodejno zaklenemo list in delovni zvezek. Toda ta članek govori o nezaščititvi lista.

Odstranjevanje zaščite lista je tudi precej enostaven postopek zaščite lista. Za zaščito lista moramo vnesti geslo, ki smo ga uporabili pri zaklepanju. Za zaščito lista moramo samo izbrati ime delovnega lista in funkcijo, imenovano Unprotect . Če je to na voljo v VBA, potem je to le eno vrstico. Če pa ni, moramo iskati kakšen drug način, ki ga bomo videli v spodnjih primerih.

Kako odstraniti zaščitni list v Excelu VBA?

Naučili se bomo, kako odpraviti zaščito lista v Excelu s pomočjo kode VBA.

To predlogo programa Excel Unprotect Sheet Excel lahko prenesete tukaj - VBA Predloga za nezaščitni list Shel Excel

Nezaščiten list VBA - Primer 1

Najprej bi videli preprost primer za zaščito lista. Za to sledite spodnjim korakom:

1. korak: Najprej odprite modul na kartici z vstavitvijo, kot je prikazano spodaj.

Korak 2: Zdaj napišite podprocesuro VBA Unprotect lista. Lahko pa izberemo katero koli drugo ime, da ga definiramo.

Koda:

 Sub VBA_Unprotect () Konec Sub

3. korak: S poljubnim imenom določite spremenljivko, imenovano Workheet. Prednostno ime, ki spominja na delovni list, kot je ExSheet

Koda:

 Pod VBA_Unprotect () Dim ExSheet kot delovni konec konec Pod

4. korak: Zdaj nastavite definirano spremenljivko delovnega lista z imenom lista, ki ga želimo odstraniti. Tu je ime tega lista Sheet1 .

Koda:

 Pod VBA_Unprotect () Dim ExSheet kot set delovnega lista ExSheet = Delovni listi ("Sheet1") End Sub

5. korak: Zdaj dodelite funkcijo Unprotect, ki je na spustnem seznamu VBA, spremenljivki ExSheet delovnega lista .

Koda:

 Pod VBA_Unprotect () Dim ExSheet kot set delovnega lista ExSheet = Delovni listi ("Sheet1") ExSheet.Unprotect End Sub

6. korak: Zdaj podajte geslo, ki smo ga dali za zaklepanje tega lista. Tu je geslo »Open1212«. In to je lahko karkoli, kar je odvisno od izbire uporabnika.

Koda:

 Pod VBA_Unprotect () Dim ExSheet kot set delovnega lista ExSheet = Delovni listi ("Sheet1") ExSheet.Unprotect geslo: = "Open1212" End Sub

7. korak: Zdaj najprej zaščitimo Sheet1 s klikom na zavihek meni Pregled in izbiro možnosti Zaščitni list .

8. korak: Vnesite želeno geslo in kliknite OK, da zaščitite list.

9. korak: Za potrditev znova vnesite geslo.

Korak 10: Ko bomo končali, bomo videli, da na tem listu ne moremo ničesar spremeniti, tudi če to poskusimo. Zdaj, da list odstranimo, bomo sestavili pisno kodo in jo zagnali.

Ko bomo našo kodo izvedli, bomo v Sheet1 lahko izvedli kakršne koli spremembe.

Korak 11: Kaj pa, če odstranimo ali spremenimo vrstico kode, kamor smo vstavili geslo in jo naredimo do funkcije Unprotect, kot je prikazano spodaj. Poglejmo, kaj se bo zgodilo, če to storimo.

Koda:

 Pod VBA_Unprotect () Dim ExSheet kot set delovnega lista ExSheet = Delovni listi ("Sheet1") ExSheet.Unprotect End Sub

12. korak: Zdaj zaženite celotno kodo. Videli bomo, prikaže se polje s sporočilom, v katerem se bo zahtevalo, da vnesete geslo. Tu vnesite geslo, ki smo ga izbrali med zaščito lista in kliknite OK.

Tudi s tem postopkom lahko zaščitimo list, ki ga želimo.

Nezaščiten list VBA - Primer št. 2

Obstaja še en način zaščite delovnih listov. To je najlažji in najpreprostejši način. Za to sledite spodnjim korakom:

1. korak: Zapišite podprocesuro za VBA Unprotect, kot je prikazano spodaj.

Koda:

 Sub VBA_Unprotect2 () Konec Sub

2. korak: Uporabite funkcijo Delovni listi in izberite list, ki ga želimo zaščititi. Tu je spet ta list She1 .

Koda:

 Pod VBA_Unprotect2 () Delovni listi ("Sheet1") End Sub

3. korak: Na podoben način, kot je prikazano v primeru-1, bomo uporabili ukaz Unprotect skupaj z geslom, ki smo ga uporabili pri zaklepanju lista. Tu je naše geslo za zaščito pred zaščito enako kot » Open1212 «.

Koda:

 Pod VBA_Unprotect2 () Delovni listi ("Sheet1"). Odstrani geslo: = "Open1212" Konec pod

Zdaj je naša koda zaključena. Če želite to preizkusiti, najprej zaščitite list na enak način kot v primeru-1 in zaženite to kodo, da jo odvzamete.

Nezaščiten list VBA - primer # 3

Kaj pa, če rečem, lahko spet napišemo kodo, kjer nam ni treba izbrati imena lista, ki ga želimo zaščititi. Da, to je mogoče storiti s pomočjo zanke. Za to sledite spodnjim korakom:

Korak 1: Ponovno odprite modul in napišite podproceduro VBA Unprotect stanja, kot je prikazano spodaj.

Koda:

 Sub VBA_Unprotect3 () Konec Sub

2. korak: Uporabite DIM za določitev spremenljivke za Worksheet kot Exsheet. To je enaka vrstica, kot smo jo uporabili v zgornjih primerih.

Koda:

 Pod VBA_Unprotect3 () Dim ExSheet kot delovni konec konec Pod

3. korak: Odprite zanko For-Next, v katero bomo zapisali pogoje nezaščitenega lista.

Koda:

 Pod VBA_Unprotect3 () Dim ExSheet kot delovni list za naslednji konec ExSheet Sub

4. korak: Napišite pogoj za vsak odprt aktivni delovni zvezek izbere trenutno aktivni delovni list, kot je prikazano spodaj.

Koda:

 Pod VBA_Unprotect3 () Dim ExSheet kot delovni list za vsak ExSheet v ActiveWorkbook.Worksheets Naslednji konec ExSheet Sub

5. korak: Zdaj bomo na podoben način, kot je razvidno iz zgornjih primerov, uporabili definirane spremenljivke, skupaj s funkcijo Unprotect, za zaščito lista. Tudi tukaj lahko geslo uporabljamo ali ne uporabljamo. To je izbirni način.

Koda:

 Pod VBA_Unprotect3 () Dim ExSheet kot delovni list za vsak ExSheet v ActiveWorkbook.Worksheets ExSheet.Unprotect geslo: = "Open1212" Naslednji konec ExSheet Sub

Sestavite kodo in zaženite, če ne najdete napake.

Tako lahko zaščitimo kateri koli odprt trenutni delovni list, ne da bi izbrali celo njegovo ime in zaporedje. Ta koda bo samodejno upoštevala tisto listo, ki je trenutno izbrana in odprta.

Prednosti Excel VBA Unprotect Sheet

  • Zgoraj prikazani postopki in primeri so najlažji za uporabo.
  • Listja lahko zaščitimo z obojestransko zaščito, tako da geslo dodamo v kodo ali ne da gesla.
  • To deluje na enak način, kot smo ročno odstranili list.

Stvari, ki jih je treba zapomniti

  • Ker je postopek dokaj enostaven za izvedbo, tako da avtomatizacije ni mogoče izboljšati.
  • Geslo lahko spremenimo vsakič, ko obnovimo postopek zaščite in zaščite lista.
  • Izberemo lahko ime lista ali zaporedje lista, ki ga želimo zaščititi.
  • Ko končate, shranite kodo v Makronu in omogočite Excelov delovni list za zaščito izgube kode VBA.

Priporočeni članki

To je vodnik za VBA Unprotect Sheet. Tukaj razpravljamo o odstranjevanju zaščitnega lista v Excelu z uporabo kode VBA skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. Javna spremenljivka VBA (primeri)
  2. Številka formata VBA s funkcijo
  3. VBA varianta s tipi podatkov
  4. VBA naključno | Predloge Excela
  5. VBA Environment

Kategorija:

VBA