VBA -kode for å låse opp et låst Excel -ark: 4 trinn
VBA -kode for å låse opp et låst Excel -ark: 4 trinn

Innholdsfortegnelse:

Anonim
VBA -kode for å låse opp et låst Excel -ark
VBA -kode for å låse opp et låst Excel -ark
VBA -kode for å låse opp et låst Excel -ark
VBA -kode for å låse opp et låst Excel -ark

Hvis du noen gang har glemt et passord for et av Excel -regnearkene dine, vet du hvor frustrerende det kan være. Koden som brukes i denne instruksjonen er en av de enkleste jeg har funnet. Det vil generere en brukbar kode som vil låse opp det beskyttede arket. Jeg kan ikke ta æren for koden, da jeg bare fant den i et øyeblikk av nød (og jeg kan ikke finne hvor siden er lenger) … så jeg vil ikke være mye hjelp hvis den ikke fungerer for deg, men jeg har hadde suksess med det og tenkte jeg ville dele.

Trinn 1: Åpne VBA

Åpne VBA
Åpne VBA

Åpne regnearket du glemmer passordet ditt til. Bruk Alt+F11 for å gå inn i makroeditoren. Når du i VBA dobbeltklikker på arket du trenger å låse opp fra menylisten til venstre. Dette åpner den generelle erklæringssiden for arket.

Trinn 2: Klipp ut og lim inn kodebryteren

Klipp ut og lim inn kodebryteren
Klipp ut og lim inn kodebryteren

Sett inn koden nedenfor på den generelle erklæringssiden du har åpnet. Du trenger ikke å endre noe, arknavn osv. Bare klipp og lim inn. k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 Til 66: For k = 65 Til 66 For l = 65 Til 66: For m = 65 Til 66: For i1 = 65 Til 66 For i2 = 65 Til 66: For i3 = 65 Til 66: For i4 = 65 Til 66 For i5 = 65 Til 66: For i6 = 65 Til 66: For n = 32 Til 126 ActiveSheet. Fjern beskyttelse av Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = False Then MsgBox "Ett brukbart passord er" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Avslutt Sub End Hvis Neste: Neste: Neste: Neste: Neste: Neste: Neste Neste: Neste: Neste: Neste: Neste: Neste: Neste slutt Sub_

Trinn 3: Kjør makroen

Kjør makroen
Kjør makroen

Når koden er lagt til, kjører du makroen ved å velge Kjør fra menyfanen øverst på VBA -redigeringsskjermen eller trykke F5

Trinn 4: Bruk den genererte koden

Bruk den genererte koden
Bruk den genererte koden
Bruk den genererte koden
Bruk den genererte koden
Bruk den genererte koden
Bruk den genererte koden

Makroen returnerer deg til regnearket du vil fjerne beskyttelsen til. En varselstilboks vises med en brukbar kode. I kategorien Gjennomgå klikker du på Beskytt ark. Skriv inn den genererte koden som passord og du er ferdig. Arket ditt bør låses opp! Du bør bruke denne kraften klokt og ansvarlig bare for å låse opp dine egne regneark.