Hur återställer jag borttappat lösenord för kalkylblad i Excel?

Vi ställer alltid in lösenord för att skydda vissa viktiga kalkylblad från att förstöras eller modifieras av andra. Men om du glömmer dina lösenord, hur kan du göra det? Lyckligtvis stöder Excel lite VBA-kod för att återställa ditt förlorade lösenord för kalkylblad. Du kan hantera detta problem så här:

Återställ förlorat lösenordsskyddslösenord i Excel med VBA-kod

Återställ förlorat lösenordsskyddslösenord i Excel med VBA-kod

Följande VBA-kod kan hjälpa dig att snabbt avbryta dina ursprungliga lösenord i ett kalkylblad.

1. Öppna ditt kalkylblad som har skyddats tidigare.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: återställa förlorat lösenord för skydd av kalkylblad

Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim 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 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect 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 "One usable password is " & 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 If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Klicka sedan F5 för att köra den här koden och en snabbruta dyker upp, klicka OK för att stänga det och dina lösenord för det skyddade kalkylbladet kommer att annulleras på en gång.

Anmärkningar:

1. Med den här koden återställer du bara ett lösenordsskyddslösenord åt gången. Om det finns flera skyddade kalkylblad måste du tillämpa den här koden en efter en.
2. Ovanstående kod kommer från http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Relaterade artiklar

Hur skyddar jag flera kalkylblad samtidigt i Excel?

Hur skyddar jag flera kalkylblad samtidigt i Excel?