VBA-Code zum Entsperren einer gesperrten Excel-Tabelle

Wenn Sie jemals ein Passwort für eines Ihrer Excel-Arbeitsblätter vergessen haben, wissen Sie, wie frustrierend das sein kann.

Der in dieser Anleitung verwendete Code ist einer der einfachsten, den ich gefunden habe. Es wird ein verwendbarer Code generiert, der Ihr geschütztes Blatt entsperrt.

Ich kann den Code nicht gutschreiben, da ich ihn nur in einem Moment der Not gefunden habe (und ich kann nicht mehr finden, wo sich die Site befindet) ... sooo, ich werde nicht viel helfen, wenn er nicht für Sie funktioniert, sondern für mich Ich hatte Erfolg damit und dachte, ich würde teilen.

Schritt 1: Öffnen Sie VBA

Öffnen Sie das Arbeitsblatt, für das Sie Ihr Passwort vergessen haben.

Verwenden Sie Alt + F11, um den Makro-Editor aufzurufen.
Sobald Sie in VBA sind, doppelklicken Sie auf das Blatt, das Sie entsperren möchten, aus der Menüliste auf der linken Seite.
Dadurch wird die Seite mit den allgemeinen Erklärungen für das Blatt geöffnet.

Schritt 2: Schneiden Sie den Code Breaker aus und fügen Sie ihn ein

Fügen Sie den folgenden Code in die von Ihnen geöffnete Seite mit allgemeinen Deklarationen ein.

Sie sollten nichts ändern müssen, Blattname usw. ... Einfach ausschneiden und einfügen.
_______________________

Sub PasswordBreaker ()

'Bricht den Passwortschutz für das Arbeitsblatt ab.

Dim i als Ganzzahl, j als Ganzzahl, k als Ganzzahl
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
Für i = 65 bis 66: Für j = 65 bis 66: Für k = 65 bis 66
Für l = 65 bis 66: Für m = 65 bis 66: Für i1 = 65 bis 66
Für i2 = 65 bis 66: Für i3 = 65 bis 66: Für i4 = 65 bis 66
Für i5 = 65 bis 66: Für i6 = 65 bis 66: Für n = 32 bis 126
ActiveSheet.Unprotect Chr (i) & Chr (j) & Chr (k) & _
Chr (1) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _
Chr (i4) & Chr (i5) & Chr (i6) & Chr (n)
Wenn ActiveSheet.ProtectContents = False, dann
MsgBox "Ein verwendbares Passwort ist" & Chr (i) & Chr (j) & _
Chr (k) & Chr (1) & Chr (m) & Chr (i1) & Chr (i2) & _
Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n)
Sub beenden
End If
Weiter: Weiter: Weiter: Weiter: Weiter: Weiter
Weiter: Weiter: Weiter: Weiter: Weiter: Weiter
End Sub
________________________.

Schritt 3: Führen Sie das Makro aus

Sobald der Code hinzugefügt wurde, führen Sie das Makro aus, indem Sie in der Menüleiste oben im VBA-Editor-Bildschirm die Option Ausführen auswählen oder einfach F5 drücken

Schritt 4: Verwenden Sie den generierten Code

Das Makro kehrt zu dem Arbeitsblatt zurück, dessen Schutz Sie aufheben möchten. Ein Warnfeld mit einem verwendbaren Code wird angezeigt.

Klicken Sie auf der Registerkarte Überprüfen auf die Registerkarte Schutz aufheben.
Geben Sie den generierten Code als Passwort ein und fertig. Ihr Blatt sollte entsperrt sein!

Sie sollten diese Kraft mit Bedacht und Verantwortung einsetzen, um nur Ihre eigenen Arbeitsblätter freizuschalten.