PW aufheben von gesperrten excel datein (fürs bearbeiten) Problem

[dicktenner]

Hallo

ich hätte eine große Bitte. Folgendes Problem steht an:

Ich hab ein excel file geschickt bekommen, das nicht PW geschützt ist beim öffnen sondern beim bearbeiten. d.h. ich kann z.b. keine neue Zeile löschen, weil ich zuerst das file unlocken müsste. Dazu brauch ich aber das PW das mir nicht bekannt ist.

Nun meine Frage:
Gibt es einen Trick bzw ein Programm, das mir dieses PW aufhebt bzw. herausfindet?

danke für eure Hilfe

 

[hustler]

Wenn die Datei eine andere Endung hat als .xls dann ändere die Endung zu .xls, viell. funzt das!

Ansonsten brauchst du ein Programm um es zu entschlüsseln.
Dazu lies dir mal das durch viell. hilft dir das weiter: Excel-Passwort umgehen?

Du kannst also OpenOffice benützen:
Bei der Installation ist es hier nur wichtig, das saemtliche
Importfilter installiert werden.

Dabei erhaelt er dann auch gleich ein besseres Office-Paket welches dazu
noch voellig gratis ist und sich uebrigens im Gegensatz zu M$-Office
wieder recht rueckstandfrei deinstallieren laesst.

mfg hustler

 

[supersumse]

hallo dicktenner
versuch es mal mit einer anfrage bei google
habe gerade mal password finder for exel eingegeben und
mehr als ein treffer erhalten
kannst das ganze natürlich auch auf deutsch probieren
viel glück bei deinem vorhaben denn wenndas pw lang und aus allen zu verfügung stehenden zeichen besteht brauchst du das
lg

 

[gerhardt]

Hi,
probier malfolgendes:
1) Öffne die Datei mit dem PW
2) Esrelle eine leere neue Excelmappe
3) Mit Strg-A alles im Original markieren und in die neue Datei kopieren.

Nun hast du alle Daten, Formeln und Formate aber ohne Schutz

Gruß
Gerhardt

 

[jellyW]

Das geht einfach mit einem Excel Makro.
Ruf den VBA-Editor in Excel auf und kopiere das hier in ein neues Modul:

Sub PasswordBreaker()
' Author unknown
' Breaks worksheet password protection.
' found at http://j-walk.com/ss/excel/faqs/pw.txt
'
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


Sub PasswordBreakerWorkbook()
' Author unknown
' Breaks worksheet password protection.
' found at http://j-walk.com/ss/excel/faqs/pw.txt
'
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

If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
MsgBox "This workbook is not protected"
Exit Sub
End If

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
ActiveWorkbook.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 ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = 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

je nachdem ob das Sheet oder das Workbook gesperrt ist rufst Du das eine oder andere Makro auf. Dauert einige zig Sekunden bis Minuten und schon ist der Schutz weg.

 

[Siggi S.]

Hallo,

es gab da mal nen Artikel bei PC-Welt, hab leider den Link nicht mehr aber gib mal bei Google Begriffe wie "Excel Blattschutz aufheben" ein.

Viel Glück,
Siggi S.

 

[dicktenner]

danke an alle - mit dem Makro hat es geklappt