Innehållsförteckning:

VBA -kod för att låsa upp ett låst Excel -ark: 4 steg
VBA -kod för att låsa upp ett låst Excel -ark: 4 steg

Video: VBA -kod för att låsa upp ett låst Excel -ark: 4 steg

Video: VBA -kod för att låsa upp ett låst Excel -ark: 4 steg
Video: Excel — три способа перевернуть буквы в ячейке Excel — серия 2391 2024, December
Anonim
VBA -kod för att låsa upp ett låst Excel -ark
VBA -kod för att låsa upp ett låst Excel -ark
VBA -kod för att låsa upp ett låst Excel -ark
VBA -kod för att låsa upp ett låst Excel -ark

Om du någonsin har glömt ett lösenord för ett av dina Excel -kalkylblad vet du hur frustrerande det kan vara. Koden som används i denna instruktion är en av de enklaste jag har hittat. Det kommer att generera en användbar kod som låser upp ditt skyddade ark. Jag kan inte ta kredit för koden eftersom jag bara hittade den i ett ögonblick av behov (och jag kan inte hitta var webbplatsen är längre) … så jag kommer inte att vara till stor hjälp om det inte fungerar för dig men jag har hade framgång med det och tänkte dela med mig.

Steg 1: Öppna VBA

Öppna VBA
Öppna VBA

Öppna kalkylbladet du glömmer ditt lösenord till. Använd Alt+F11 för att komma till makroedigeraren. När du i VBA dubbelklickar på det blad du behöver låsa upp från menyn listan till vänster. Detta öppnar den allmänna deklarationssidan för arket.

Steg 2: Klipp ut och klistra in kodbrytaren

Klipp ut och klistra in kodbrytaren
Klipp ut och klistra in kodbrytaren

Sätt in koden nedan på den allmänna deklarationssidan som du har öppnat. Du ska inte behöva ändra någonting, bladnamn etc. … Klipp bara ut och klistra in._ Sub PasswordBreaker () 'Bryter lösenordsskydd för kalkylblad. Dim i As Integer, j As Integer, 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 Till 66: För k = 65 Till 66 För l = 65 Till 66: För m = 65 Till 66: För i1 = 65 Till 66 För i2 = 65 Till 66: För i3 = 65 Till 66: För i4 = 65 Till 66 För i5 = 65 Till 66: För i6 = 65 Till 66: För n = 32 Till 126 ActiveSheet. Avskydda 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 användbart lösenord är" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Avsluta Sub End Om Nästa: Nästa: Nästa: Nästa: Nästa: Nästa: Nästa Nästa: Nästa: Nästa: Nästa: Nästa: Nästa Slut Sub_

Steg 3: Kör makrot

Kör makrot
Kör makrot

När koden har lagts till kör du makrot genom att välja Kör på menyfliken längst upp på VBA -redigeraren eller tryck på F5

Steg 4: Använd den genererade koden

Använd den genererade koden
Använd den genererade koden
Använd den genererade koden
Använd den genererade koden
Använd den genererade koden
Använd den genererade koden

Makrot kommer tillbaka till det kalkylblad du vill avskydda. En larmstil visas med en användbar kod. På fliken Granska -menyn klickar du på Skydda arket. Ange den genererade koden som lösenord och du är klar. Ditt blad bör låsas upp! Du bör använda denna kraft klokt och ansvarsfullt endast för att låsa upp dina egna kalkylblad.

Rekommenderad: