Excel Blattschutz aufheben und Anzeigen
08.11.2016 16:15:47
André
mit dem Makro aus dem Netz kann man die Passwörter schnell knacken. Klappt wunderbar. Möchte aber das gelöste Passwort anzeigen lassen und kriege da nur irgendwelchen MIst angezeigt. Eventuell kann ja jemand helfen?
PS: in dem VBA Code ist die MsgBox das was ich hinzugefügt habe! Rest ist orginal und funktioniert.
Danke und viele Grüße
André
Sub SchutzEntfernen()
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 n = 65 To 66
For o = 65 To 66: For p = 65 To 66
For q = 65 To 66: For r = 65 To 66
For s = 65 To 66: For t = 32 To 126
ActiveSheet.Unprotect Chr(i) & _
Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(n) & Chr(o) & _
Chr(p) & Chr(q) & Chr(r) & _
Chr(s) & Chr(t)
Next t: Next s: Next r: Next q
Next p: Next o: Next n: Next m
Next l: Next k: Next j: Next i
MsgBox ("Success! Passwort: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & _
Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t))
End Sub