Indholdsfortegnelse:

VBA -kode for at låse et låst Excel -ark op: 4 trin
VBA -kode for at låse et låst Excel -ark op: 4 trin

Video: VBA -kode for at låse et låst Excel -ark op: 4 trin

Video: VBA -kode for at låse et låst Excel -ark op: 4 trin
Video: How To Create A Fully Dynamic Userform In Excel With A Single Macro [Full Training + Free Download] 2024, December
Anonim
VBA -kode for at låse et låst Excel -ark op
VBA -kode for at låse et låst Excel -ark op
VBA -kode for at låse et låst Excel -ark op
VBA -kode for at låse et låst Excel -ark op

Hvis du nogensinde har glemt en adgangskode til et af dine excel -regneark, ved du, hvor frustrerende det kan være. Koden, der bruges i denne instruktion, er en af de enkleste, jeg har fundet. Det genererer en brugbar kode, der låser dit beskyttede ark op. Jeg kan ikke tage æren for koden, da jeg kun fandt den i et øjeblik med nød (og jeg kan ikke finde, hvor siden er længere) … så jeg vil ikke være meget hjælp, hvis den ikke virker for dig, men jeg har havde succes med det og tænkte jeg ville dele.

Trin 1: Åbn VBA

Åbn VBA
Åbn VBA

Åbn det regneark, du glemmer din adgangskode til. Brug Alt+F11 til at gå ind i makroeditoren. Når du i VBA dobbeltklikker på det ark, du skal låse op fra menuoversigten til venstre. Dette åbner den generelle erklæringsside for arket.

Trin 2: Klip og indsæt kodebryderen

Klip og indsæt kodebryderen
Klip og indsæt kodebryderen

Indsæt nedenstående kode på den generelle erklæringsside, du har åbnet. Du skal ikke skulle ændre noget, arknavn osv … Bare klip og indsæt. 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 af Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Hvis ActiveSheet. ProtectContents = False Så er MsgBox "Et brugbart kodeord" & " Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Exit Sub End Hvis Næste: Næste: Næste: Næste: Næste: Næste Næste Næste: Næste: Næste: Næste: Næste: Næste ende Sub_

Trin 3: Kør makroen

Kør makroen
Kør makroen

Når koden er tilføjet, kører du makroen ved at vælge Kør på menufanen i toppen af VBA -editorens skærm eller blot trykke på F5

Trin 4: Brug den genererede kode

Brug den genererede kode
Brug den genererede kode
Brug den genererede kode
Brug den genererede kode
Brug den genererede kode
Brug den genererede kode

Makroen vender dig tilbage til det regneark, du vil fjerne beskyttelsen fra. En advarselstypeboks vises med en brugbar kode. I fanen Gennemse -menuen skal du klikke på Afbeskyt ark. Indtast den genererede kode som adgangskode, og du er færdig. Dit ark skal låses op! Du bør kun bruge denne kraft klogt og ansvarligt til at låse dine egne regneark op.

Anbefalede: