Supportnet / Forum / Tabellenkalkulation
Kennwort für Excel-Datei vergessen
Frage
Hallo,
ich habe ein Problem. Ich habe vor einiger Zeit eine Excel-Datei angelegt und diese mit einem Lesekennwort versehen. Nun habe ich das Kennwort vergessen. Gibt es eine Möglichkeit das Kennwort herauszufinden oder zu löschen?
Wäre nett wenn mir jemand helfen könnte.
Schon mal vielen Dank im voraus.
Gruß
Mona_FL
Antwort 1 von Marchello
Probier mal das:
Sub PW()
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
kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect kennwort
If ActiveSheet.ProtectContents = False Then
MsgBox "Fertig" & vbCr & "Das alternative Kennwort lautet:" & vbCr & kennwort
Debug.Print kennwort
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Sollte funktionieren!
LG
Sub PW()
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
kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect kennwort
If ActiveSheet.ProtectContents = False Then
MsgBox "Fertig" & vbCr & "Das alternative Kennwort lautet:" & vbCr & kennwort
Debug.Print kennwort
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Sollte funktionieren!
LG
Antwort 2 von Coolpix
hallo Mona,
wenn ich dich richtig verstanden habe kommt die Passwortabfrage schon beim öffnen der Datei.
Wenn dem so ist kann ich dir anbieten, da ich in der Firma auf so 'ne Passwortsoftware Zugriff habe, daß du mir die Datei zumailst und ich sie dir ohne Passwort oder das Passwort selbst zurückmaile.
Zur Info :
Die verwendete Software heißt Advanced-Excel-Passwortrecovery von der Firma Elcomsoft.
bitte poste hier ob du's schickst weil ich dann mein Mailkonto checken muß !!
Greetings ;-)
wenn ich dich richtig verstanden habe kommt die Passwortabfrage schon beim öffnen der Datei.
Wenn dem so ist kann ich dir anbieten, da ich in der Firma auf so 'ne Passwortsoftware Zugriff habe, daß du mir die Datei zumailst und ich sie dir ohne Passwort oder das Passwort selbst zurückmaile.
Zur Info :
Die verwendete Software heißt Advanced-Excel-Passwortrecovery von der Firma Elcomsoft.
bitte poste hier ob du's schickst weil ich dann mein Mailkonto checken muß !!
Greetings ;-)
Antwort 3 von oder_so
Kann es sein, dass das VBA Makro aus der PCW kommt? Da gab es vor Kurzem nämlich einen solchen Tipp.
Nützt natürlich nix, wenn die DATEI kennwortgeschützt ist ;-)
Nützt natürlich nix, wenn die DATEI kennwortgeschützt ist ;-)