Excel VBA Unprotect Sheet

Vi har et alternativ i Excel der vi kan beskytte excelark og filer fra å bli slettet, gitt nytt navn og fra å lagre dataene fra andre endringer som ikke er nødvendige. Alternativet kalles Beskytt ark og beskytt arbeidsbok som er der i delen Endringer under Gjennomsyn menybånd. Vi kan angi et passord der vi kan lagre det valgte arket fra eventuelle endringer. Men hva jeg sier, dette kan også automatiseres ved hjelp av VBA-kode. Ja, vi kan lage en kode eller makro som vi automatisk kan låse arket og arbeidsboken på. Men denne artikkelen handler om å beskytte arket.

Å beskytte arket er også en ganske enkel prosess som å beskytte arket. For å avbeskytte arket, må vi oppgi passordet som vi brukte mens vi låste det arket. For å avbeskytte arket, trenger vi bare å velge navnet på regnearket og funksjonen som heter Unprotect . Hvis det er tilgjengelig i VBA, er det bare en en-linjekode. Men hvis det ikke er det, må vi se etter en annen måte å gjøre det på som vi vil se i eksemplene nedenfor.

Hvordan fjerne beskyttelse av ark i Excel VBA?

Vi lærer hvordan du kan beskytte ark i Excel ved å bruke VBA-koden.

Du kan laste ned denne VBA Unprotect Sheet Excel Template her - VBA Unprotect Sheet Excel Template

VBA Unprotect Sheet - Eksempel nr. 1

Først vil vi se et enkelt eksempel for å fjerne beskyttelsen av arket. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Åpne først en modul fra Sett inn menyfanen som vist nedenfor.

Trinn 2: Skriv nå delprosessen til VBA Unprotect-arket. Eller vi kan velge hvilket som helst annet navn for å definere det.

Kode:

 Sub VBA_Unprotect () Slutt Sub

Trinn 3: Definer en variabel som heter Arbeidsark med hvilket som helst navn. Fortrinnsvis navnet som ligner regneark som ExSheet

Kode:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet End Sub

Trinn 4: Sett deretter den definerte regnearkvariabelen med navnet på arket som vi vil fjerne beskyttelsen. Her er navnet på det arket Ark1 .

Kode:

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

Trinn 5: Tildel nå Unprotect- funksjonen som er der i VBA-rullegardinlisten til regnearkvariabelen ExSheet .

Kode:

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

Trinn 6: Gi nå passordet som vi ga for å låse det arket. Her er passordet “Open1212”. Og dette kan være hva som helst, som er opp til brukerens valg.

Kode:

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

Trinn 7: Nå skal vi først beskytte Ark1 ved å klikke på menyen-kategorien Gjennomgang og velge Beskytt ark- alternativet.

Trinn 8: Skriv inn passordet vi ønsker, og klikk på Ok for å beskytte arket.

Trinn 9: Skriv inn passordet på nytt for å bekrefte.

Trinn 10: Når det er gjort, får vi se, vi kan ikke endre noe i det arket selv om vi prøver å gjøre det. For å fjerne beskyttelsen av arket, vil vi sammenstille den skrevne koden og kjøre den.

Når koden er utført, kan vi se endringer i Ark1 .

Trinn 11: Hva om vi fjerner eller endrer kodelinjen der vi har satt inn passordet og gjør det til Unprotect-funksjonen som vist nedenfor. La oss se hva som vil skje hvis vi gjør det.

Kode:

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

Trinn 12: Kjør nå den komplette koden. Vi vil se, en meldingsboks vises som ber om å oppgi passordet. Mat inn passordet her som vi har valgt mens du beskytter arket, og klikk på Ok.

Med denne prosessen kan vi også fjerne beskyttelsen av arket vi ønsker.

VBA Unprotect Sheet - Eksempel # 2

Det er en annen måte å beskytte regneark på. Dette er den enkleste og enkleste måten å gjøre det på. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Skriv underprosessen for VBA Unprotect som vist nedenfor.

Kode:

 Sub VBA_Unprotect2 () Slutt Sub

Trinn 2: Bruk regnearkfunksjonen og velg arket vi vil fjerne beskyttelsen. Også her er arket Ark 1 .

Kode:

 Sub VBA_Unprotect2 () Worksheets ("Sheet1") Slutt Sub

Trinn 3: På en lignende måte som vist i eksempel-1, bruker vi Unprotect-kommandoen sammen med passordet som vi brukte mens vi låste arket. Her er passordet vårt for å beskytte også det samme som “ Open1212 ”.

Kode:

 Sub VBA_Unprotect2 () Worksheets ("Sheet1"). Unprotect Password: = "Open1212" End Sub

Nå er koden vår fullført. For å teste dette, beskytt først arket på samme måte som vi gjorde i eksempel 1 og kjør denne koden for å fjerne beskyttelsen.

VBA Unprotect Sheet - Eksempel # 3

Hva om jeg sier, kan vi igjen skrive en kode der vi ikke trenger å velge navnet på arket som vi vil fjerne beskyttelsen. Ja, dette kan gjøres ved hjelp av en loop. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Åpne en modul for dette igjen og skriv delprosessen til VBA Unprotect-ark som vist nedenfor.

Kode:

 Sub VBA_Unprotect3 () Slutt Sub

Trinn 2: Bruk DIM til å definere en variabel for regneark som regneark. Det er den samme linjen som vi har brukt i eksemplene ovenfor.

Kode:

 Sub VBA_Unprotect3 () Dim ExSheet As Worksheet End Sub

Trinn 3: Åpne en For-neste-loop der vi skal skrive forholdene for ubeskyttelse.

Kode:

 Sub VBA_Unprotect3 () Dim ExSheet Som regneark for neste ExSheet End Sub

Trinn 4: Skriv betingelsen for hver åpnet aktiv arbeidsbok velger det gjeldende aktive arbeidsarket, som vist nedenfor.

Kode:

 Sub VBA_Unprotect3 () Dim ExSheet Som regneark for hvert ExSheet i ActiveWorkbook.Worksheets Neste ExSheet End Sub

Trinn 5: Nå på lignende måte som vi ser i eksemplene ovenfor, vil vi bruke definerte variabler sammen med Unprotect-funksjonen for å fjerne beskyttelsen av arket. Også her bruker vi kanskje ikke passordet. Dette er en valgfri måte.

Kode:

 Sub VBA_Unprotect3 () Dim ExSheet Som regneark for hvert ExSheet I ActiveWorkbook.Worksheets ExSheet.Unprotect Password: = "Open1212" Neste ExSheet End Sub

Sett sammen koden og kjør hvis ingen feil ble funnet.

Slik kan vi fjerne beskyttelsen av alle åpnede aktuelle arbeidsark uten en gang å velge navn og sekvens på det. Denne koden vil automatisk vurdere det arket som for øyeblikket er valgt og åpnet.

Fordeler med Excel VBA Unprotect Sheet

  • Over viste prosesser og eksempler er de enkleste å anvende.
  • Vi kan fjerne beskyttelsen av arket på begge måter, ved å oppgi selve passordet i koden eller uten å oppgi passordet.
  • Dette fungerer på samme måte som vi manuelt avbeskytter arket.

Ting å huske

  • Siden prosessen er ganske enkel å implementere, kan det hende at det ikke blir noen forbedring ved å automatisere.
  • Vi kan endre passordet hver gang vi gjør om prosessen med å beskytte og avbeskytte arket.
  • Vi kan velge navnet på arket eller sekvensen til arket som vi vil fjerne beskyttelsen.
  • Når du har gjort det, kan du lagre koden i makro, slik at Excel-regnearket kan beskytte VBA-koden.

Anbefalte artikler

Dette er en guide til VBA Unprotect Sheet. Her diskuterer vi hvordan du kan fjerne beskyttelse av ark i Excel ved hjelp av VBA-kode sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. VBA offentlig variabel (eksempler)
  2. VBA-formatnummer med funksjon
  3. VBA-variant med datatyper
  4. VBA Randomize | Excel-maler
  5. VBA-miljø

Kategori:

VBA