Excel Tabellen-Schutz geschlossen

[drache29]

hi,

ich habe ein kleines Problem. Ich habe ein Excel-Dokument bekommen, dass ich sehr gerne auf meine Bedürfnisse zurecht stricken möchte. Leider ist die Tabelle mit einem Schutz versehen.
Um den Blattschutz aufzuheben, benötige ich ein Passwort, dass ich leider nicht habe.
Gibt es eine Möglichkeit bzw. ein Progämmchen, das mir das Passwort heraus findet???

Grüsse

drache29

 

[Tattooed1980]

Ich zitier hier mal von einer anderen Seite.

Dieser Code nützt eine Sicherheitslücke von Excel aus, die seit Urzeiten besteht und bis zur Excel 2003 Beta aus Kompatibilitätsgründen noch nicht geschlossen wurde.
Der Blattschutz des aktiven Tabellenblattes oder des aktiven Diagramms wird einfach nur mit allen möglichen Kombinationen bombardiert, ohne zwischendrin nach einen Erfolg zu prüfen. Es ist hierdurch nicht möglich das Passwort im Klartext zu lesen.


' Code in ein normales Modul einfügen

Sub Blattschutz_löschen()
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 "Fertig"
End Sub

Quelle: Berti's Tipps und Tricks rund um Excel Herzlich Willkommen

Ich hab selbst noch nicht probiert ob es funktioniert, oder wie lange es läuft.
Ist halt eine reine BrutalForce-Methode

MfG Tattooed1980

PS: Wäre nett, wenn du mitteilst, ob du Erfolg hattest.

 

[totom]

Hallo Drache,


wenn es nur der normale Blattschutz ist, hilft auch der folgende Tipp:

- In der gesperrten Tabelle alle Zellen markieren; z.B. durch Klick auf das unbeschriftete Feld oben links in der Ecke (links von Spalte A und über Zeile 1).
- Dann rechte Maustaste und "kopieren" (oder "Strg"+"c") wählen
- In der Arbeitsmappe auf eine leeres Blatt wechseln und rechte Maustaste "einfügen" (oder "Strg"+"v")
- und fertig


Gruß
totom

 

[logi11]

Funktioniert das Skript oben noch unter Excel 2007 ?

 

[Tattooed1980]

@logi11

Keine Ahnung.

Das Beste wird sein, wenn du es einfach mal ausprobierst.

Ich selbst arbeite mit Excel2003

MfG Tattooed1980

 

[totom]

hi loggi,

ich wüsste nicht, warum das VBA-Script unter Excel 2007 nicht laufen sollte.
Es ist doch recht simpel und probiert doch nur alle Möglichkeiten aus.

Allerdings ist in der Bereichsangabe eine "Unschärfe".
Denn Chr (65) bis Chr(66) erzeugt NUR die Buchstaben "A" und "B" !

Daher für alle Variablen von 32 bis 126 eintragen

Oder probiere einfach meinen Kopietrick, denn es wird dann alles von den einem Blatt aufs andere kopiert, nur der Blattschutz nicht, ggg.

Gruß
totom

Nachtag:
Habe es gerade mit Excel 2003 getestet, der Code löscht auch nur mit 65-66 das vergebene Passwort, warum auch immer, fg.

 

[haribooo]

Befragt doch einfach mal google nach dem Begriff "Password Remover.xla".

 

[Mr.Black]

Schmitti's Page - Visual Basic, Excel, VBA, Win95/NT/2000, Freeware uvm.

Das dürfte dir weiterhelfen...

mfg
Mr.Black

 

[jenufa]

@tomtom
werden beim Kopieren eines geschützten Blattes nicht nur die Ergebnisse kopiert, die Formeln werden aber nicht mitkopiert? Wir hatten das Problem in der Arbeit und da hat das Kopieren nicht funktioniert.

 

[totom]

Hi jenufa,

ich habe es gerade noch mal bei Excel 2003/SP3 probiert.

Einfaches Blatt mit Eingabezelle (bei Zellenformat Haken bei „gesperrt“ entfernt) und Berechnungsformel in geschützter Ausgabezelle angelegt; anschließend Blattschutz mit Passwort gesetzt.

Dann alles markieren und alles eingefügt (nicht nur Einfügen... Werte).

Sowohl beim kopieren in ein leeres Blatt der gleichen Arbeitsmappe und/oder in eine neue Excel-Arbeitsmappe, werden nicht nur die Werte, sondern auch die Formeln, aber ohne Blattschutz kopiert.

Kannst Du doch auch selber probieren

Gruß
Thomas

 

[ipod-Ralf]

Funktioniert das Skript oben noch unter Excel 2007 ?

Gerade probiert - funktioniert auch unter Excel2007. Und zwar genau so wie der Code von Tattooed1980.

Gruss.

 

[totsch]

Hi,

um das Kennwort für den Blattschutz zu löschen, dazu gab es gerade in der letzten Ausgabe der Computerbild (15/2009) eine Anleitung.

Wer die CD aus der CB nun nicht zur Hand hat, hier der Inhalt der "Blattschutz.txt" zum Kopieren in das Modul:

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 & 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 "Blattschutz abgeschaltet"
End Sub

Gruss Totsch

 

[yuhu]

wow, super artikel, dankeschön fürs posten! :read:

@DansH: Irgendwann ist mir der Spam zuwieder. Poste etwas mit Inhalt und die Themen weiterführend und wir werden Freunde. Aktuell ist das Gegenteil der Fall .

@Topic:
Danke totsch, auch wenn das ganze schon in Post 2 identisch geschildert wurde . Fein wie aktuell die CB immer ist (immer wieder).

Ich mach hier mal dicht.