Montag, 10. März 2008

Excel 2003 2007 2010 2013 Blattschutz aufheben


[Update3]:
Das Script funktioniert auch mit Excel 2013. Getestet mit Windows 7 und Windows 8.


[Update2]:
Das Script funktioniert auch unter Excel 2010. Sogar mit xlsx-Dokumenten.


[Update]:Das Script funktioniert auch unter Excel 2007 für ein Excel 2003-Sheet, geöffnet im Kompatibilitätsmodus.

Auf der Suche nach einer Möglichkeit den Blattschutz eines Excel 2003 Dokuments aufzuheben, bin ich nach kurzer Suche über einen Artikel der PC Welt gestolpert.


Leider funktionierte der Download des besagten Skripts nicht mehr.
Nach 10 Minuten weiterer Sucharbeit habe ich es dann in Textform gefunden:


/schnipp
Sub pcwBreaker()

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
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub
/schnapp

Dieses VBA Script bindet man folgendermaßen in Excel ein:

Zuerst öffnet Ihr mal das Dokument mit dem Blattschutz.
Anschliessend drückt man ALT+F11 (öffnet den VB Editor).
Jetzt das Skript mit Copy & Paste übertragen (alles was hier in Rot steht).
(Falls das Code Fenster noch nicht offen ist, einfach F7 drücken).
Dann in der Menüleiste auf "Debuggen" klicken und den ersten Punkt auswählen (Kompilieren von VBA Projekt).
Nun mit ALT+Q zurück zu Excel und schon kann man mit ALT+F8 das pcwBreaker Skript ausführen lassen.

Nach wenigen Sekunden hat man den Blattschutz aufgehoben.