Jedes Wertpapier hat einen anderen Zweck und sollte auf unterschiedliche Weise angegangen werden.<\/p>\n\n\n\n
So sch\u00fctzen Sie Excel-Dateien mit Passw\u00f6rtern<\/h2>\n\n\n\n
Wir haben oben gelesen, dass ein Excel-Dokument f\u00fcnf verschiedene Passwortschutze hat. Diese Schutzma\u00dfnahmen k\u00f6nnen auf drei verschiedene Arten implementiert werden. Durch:<\/p>\n\n\n\n
- Eine XML-Datei.<\/li>
- Verschl\u00fcsselung.<\/li>
- Bin\u00e4res VBA-Projekt.<\/li><\/ul>\n\n\n\n
xml-Datei<\/h2>\n\n\n\n
Ab Version Excel 2007 wurde das Standard-Excel-Dateiformat von .xls auf .xlsx ge\u00e4ndert. Dies liegt an der technischen \u00c4nderung der Dateistruktur. Die .xlsx-Dateien sind also sozusagen .zip-Dateien, die aus XML-Dateien bestehen. Dies hat den Vorteil, dass die Gr\u00f6\u00dfe Ihrer Dateien erheblich kleiner ist und Entwicklern mehr M\u00f6glichkeiten bieten, da sie Zugriff auf die zugrunde liegende Struktur der XML-Dateien haben.<\/p>\n\n\n\n
Verschl\u00fcsselung<\/h2>\n\n\n\n
Ab Version Excel 2007 hat sich das Sicherheitsniveau enorm erh\u00f6ht. Wenn wir eine Datei vor dem \u00d6ffnen sch\u00fctzen, wird die Excel-Datei verschl\u00fcsselt.<\/p>\n\n\n\n
Bin\u00e4res VBA-Projekt<\/h2>\n\n\n\n
Die Passw\u00f6rter oder die verschl\u00fcsselten Versionen dieser Passw\u00f6rter werden in der Bin\u00e4rdatei selbst gespeichert.<\/p>\n\n\n\n
Entfernen verschiedener Arten von Passwortschutz<\/h2>\n\n\n\n
Knacken Sie das Passwort einer Excel-Datei, die vor dem \u00d6ffnen gesch\u00fctzt ist<\/h3>\n\n\n\n
Diese Art des Passwortschutzes kann nur durch Brute-Force-Angriffe geknackt werden. Mit anderen Worten, die Software versucht, das Passwort anhand verschiedener Buchstaben- und\/oder Zahlenkombinationen zu \u201eerraten\u201c. Je einfacher das Passwort, desto leichter ist es zu knacken.<\/p>\n\n\n\n
Knacken Sie das Passwort einer gegen Ver\u00e4nderung gesch\u00fctzten Excel-Datei<\/h3>\n\n\n\n
Der Passwortschutz (soweit wir davon sprechen k\u00f6nnen) l\u00e4sst sich leicht aufheben, indem die Datei unter einem anderen Namen gespeichert wird. Einfach ist es nicht?<\/p>\n\n\n\n
Knacken Sie das Passwort eines gesch\u00fctzten Arbeitsblatts oder einer Arbeitsmappe <\/h3>\n\n\n\n
Daf\u00fcr stehen uns zwei Methoden zur Verf\u00fcgung. Wie hier oben<\/a> beschrieben, besteht eine Excel-Datei aus dem Jahr 2007 aus XML-Dateien. Excel speichert das Kennwort nicht in diesen Dateien, sondern verwendet einen Algorithmus, der den Code \u00e4ndert. Dann wird der ge\u00e4nderte Code in der xlsx-Datei gespeichert. Der Schutz wird entfernt, wenn ein Passwort durch den Algorithmus das gleiche Ergebnis liefert.<\/p>\n\n\n\n
Manuelles Knacken eines gesch\u00fctzten Arbeitsblatts oder einer gesch\u00fctzten Arbeitsmappe<\/h4>\n\n\n\n
Laden Sie die Beispieldatei herunter und speichern Sie sie in einem Ordner auf Ihrem Computer<\/p>\n\n\n\n
Datei-mit-Passwort<\/a><\/i> Download<\/a><\/div>\n\n\n\nStellen Sie sicher, dass die Dateierweiterungen sichtbar sind.<\/p>\n\n\n\n
![\"Dateinamenerweiterung](\"https:\/\/www.bjorn-meijer.nl\/wp-content\/uploads\/2021\/05\/Bestandextenties-weergeven-1024x188.jpg\")
<\/figure>\n\n\n\n- Erstellen Sie eine Kopie der Beispieldatei und \u00e4ndern Sie die Erweiterung in .zip<\/li><\/ol>\n\n\n\n
![\"Passen](\"https:\/\/www.bjorn-meijer.nl\/wp-content\/uploads\/2021\/05\/Excelbestand-met-wachtwoord.jpg\")
<\/figure>\n\n\n\n- \u00d6ffnen Sie die Datei \u201eDatei mit Passwort.zip\u201c.<\/li>
- \u00d6ffnen Sie die Datei \\xl\\workbooks.xml, um eine gesch\u00fctzte Arbeitsmappe zu entsperren.<\/li>
- \u00d6ffnen Sie die Datei \\xl\\worksheets\\sheet1.xml, um ein gesch\u00fctztes Arbeitsblatt zu entsperren.<\/li>
- Der eingerahmte Abschnitt enth\u00e4lt den Code, der das Kennwort f\u00fcr die Arbeitsmappe codiert.<\/li>
- Entfernen Sie diesen Abschnitt aus der XML-Datei und speichern Sie ihn.<\/li>
- Platzieren Sie die ge\u00e4nderten Dateien wieder in der ZIP-Datei und \u00e4ndern Sie die Erweiterung in .xlsx.<\/li><\/ol>\n\n\n\n
![\"xml-Format](\"https:\/\/www.bjorn-meijer.nl\/wp-content\/uploads\/2021\/05\/beveiligde-werkmap-1024x471.jpg\")
xml-Datei der gesch\u00fctzten Arbeitsmappe<\/figcaption><\/figure>\n\n\n\n ![\"xml-Format](\"https:\/\/www.bjorn-meijer.nl\/wp-content\/uploads\/2021\/05\/beveiligd-werkblad-1024x267.jpg\")
xml-Datei des gesch\u00fctzten Arbeitsblatts<\/figcaption><\/figure>\n\n\n\n Knacken eines gesch\u00fctzten Arbeitsblatts oder einer Arbeitsmappe mit einem Makro<\/h3>\n\n\n\n
Das obige Verfahren kann auch schneller und einfacher durchgef\u00fchrt werden, indem es von einem Makro ausgef\u00fchrt wird. Erstellen Sie eine neue Excel-Datei und kopieren Sie den folgenden Code in ein Standardmodul des Visual Basic-Editors.<\/p>\n\n\n
\nSub RemoveProtection() Dim dialogBox As FileDialog Dim sourceFullName As String Dim sourceFilePath As String Dim sourceFileName As String Dim sourceFileType As String Dim newFileName As Variant Dim tempFileName As String Dim zipFilePath As Variant Dim oApp As Object Dim FSO As Object Dim xmlSheetFile As String Dim xmlFile As Integer Dim xmlFileContent As String Dim xmlStartProtectionCode As Double Dim xmlEndProtectionCode As Double Dim xmlProtectionString As String 'Dialogfeld \u00f6ffnen, um eine Datei auszuw\u00e4hlen Set dialogBox = Application.FileDialog(msoFileDialogFilePicker) dialogBox.AllowMultiSelect = False dialogBox.Title = "Datei ausw\u00e4hlen, um Schutz zu entfernen from" If dialogBox.Show = -1 Then sourceFullName = dialogBox.SelectedItems(1) Else Exit Sub End If 'Ordnerpfad, Dateityp und Dateinamen von sourceFullName abrufen sourceFilePath = Left(sourceFullName, InStrRev(sourceFullName, "\\") ) sourceFileType = Mid(sourceFullName, InStrRev(sourceFullName, ".") + 1) sourceFileName = Mid(sourceFullName, Le n(sourceFilePath) + 1) sourceFileName = Left(sourceFileName, InStrRev(sourceFileName, ".") - 1) 'Datum und Uhrzeit verwenden, um einen eindeutigen Dateinamen zu erstellen tempFileName = "Temp" & Format(Now, " dd-mmm -yy h-mm-ss") 'Originaldatei kopieren und in eine ZIP-Datei mit einem eindeutigen Namen umbenennen newFileName = sourceFilePath & tempFileName & ".zip" On Error Resume Next FileCopy sourceFullName, newFileName If Err.Number <> 0 Then MsgBox "Kopieren nicht m\u00f6glich" & sourceFullName & vbNewLine _ & "\u00dcberpr\u00fcfen Sie, ob die Datei geschlossen ist, und versuchen Sie es erneut" Exit Sub End If On Error GoTo 0 'Ordner zum Entpacken in zipFilePath erstellen = sourceFilePath & tempFileName & "\\" MkDir zipFilePath 'Extrahieren Sie die Dateien in den neu erstellten Ordner Set oApp = CreateObject("Shell.Application") oApp.Namespace(zipFilePath).CopyHere oApp.Namespace(newFileName).items 'jede Datei im Ordner \\xl\\worksheets der entpackten Datei xmlSheetFile durchlaufen = Dir(zipFilePath & "\\xl\\worksheets\\*.xml*") Do While xmlSheetFile <> "" 'Text der Datei in eine variable xmlFile lesen = FreeFile \u00d6ffne zipFilePath & "xl\\worksheets\\" & xmlSheetFile Zur Eingabe als xmlFile xmlFileContent = Input(LOF(xmlFile), xmlFile) Schlie\u00dfe xmlFile 'Text in der Datei manipulieren xmlStartProtectionCode = 0 xmlStartProtectionCode = InStr(1, xmlFileContent, " 0 Then xmlEndProtectionCode = InStr(xmlStartProtectionCode, _ xmlFileContent, "\/>") + 2 '"\/>" ist 2 Zeichen lang xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _ xmlEndProtectionCode - xmlStartProtectionCode) xmlFileContent = Replace(xmlFileContent, xmlProtectionString, "" ) End If 'Gib den Text der Variable in die Datei aus xmlFile = FreeFile Open zipFilePath & "xl\\worksheets\\" & xmlSheetFile For Output As xmlFile Print #xmlFile, xmlFileContent Close xmlFile 'Loop to next xmlFile in directory xmlSheetFile = Dir Loop 'Read Text der Datei xl\\workbook.xml in eine Variable xmlFile = FreeFile \u00d6ffne zipFilePath & "xl\\workbook.xml" F\u00fcr die Eingabe als xmlFile xmlFileContent = Input(LOF(xmlFile), xmlFile) Schlie\u00dfe xmlFile 'Bearbeite den Text in der Datei zu Arbeitsmappenschutz entfernen xmlStartProtectionCode = 0 xmlStartProtectionCode = InStr(1, xmlFileContent, " 0 Then xmlEndProtectionCode = InStr(xmlStartProtectionCode, _ xmlFileContent, "\/>") + 2 ''"\/>" ist 2 Zeichen lang xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _ xmlEndProtectionCode - xmlStartProtectionCode) xmlFileContent = Replace(xmlFileContent, xmlProtectionString, " ") End If 'Manipulieren Sie den Text in der Datei, um das \u00c4nderungskennwort zu entfernen xmlStartProtectionCode = 0 xmlStartProtectionCode = InStr(1, xmlFileContent, " 0 Then xmlEndProtectionCode = InStr(xmlStartProtectionCode, xmlFileContent, _ "\/>") + 2 ''"\/>" ist 2 Zeichen lang xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _ xmlEndProtectionCode - xmlStartProtectionCode) xmlFileContent = Replace(xmlFileContent, xmlProtectionString, " ") End If 'Gib den Text der Variable in die Datei aus xmlFile = FreeFile Open zipFilePath & "xl\\workbook.xml" & xmlSheetFile For Output As xmlFile Print #xmlFile, xmlFileContent Close xmlFile 'Leere Zip-Datei erstellen Open sourceFilePath & tempFileName & " .zip" F\u00fcr die Ausgabe als #1 Drucken Sie #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Schlie\u00dfen Sie #1 'Dateien in die Zip-Datei oApp.Namespace(sourceFilePath & tempFileName & ".zip").CopyHere _ oApp.Namespace(zipFilePath).items 'Skript warten lassen, bis die Komprimierung abgeschlossen ist = _ oApp.Namespace(zipFilePath).items.Count Appl ication.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 'L\u00f6sche die Dateien und Ordner, die w\u00e4hrend des Untersatzes erstellt wurden FSO = CreateObject("scripting.filesystemobject") FSO.deletefolder sourceFilePath & tempFileName ' Benennen Sie die endg\u00fcltige Datei wieder in eine xlsx-Datei um Name sourceFilePath & tempFileName & ".zip" As sourceFilePath & sourceFileName _ & "_" & Format(Now, "dd-mmm-yy h-mm-ss") & "." & sourceFileType 'Meldungsfeld anzeigen MsgBox "Die Passw\u00f6rter f\u00fcr den Arbeitsmappen- und Arbeitsblattschutz wurden entfernt.", _ vbInformation + vbOKOnly, Title:="Passwortschutz" End Sub\n<\/pre><\/div>\n\n\nF\u00fchren Sie das obige Makro aus und w\u00e4hlen Sie die Datei aus, deren Arbeitsblatt oder Arbeitsmappe gesch\u00fctzt ist. Das Makro erstellt dann eine Kopie der Datei und entfernt den\/die Passwortschutz(e).<\/p>\n\n\n\n
H\u00e4ufige Fehlermeldungen und L\u00f6sungen<\/h4>\n\n\n\n
Laufzeitfehler 53: Die Datei kann nicht gefunden werden. <\/p>\n\n\n\n
- Die Excel-Datei ist ein .xlsb-Dateityp (bin\u00e4re Excel-Datei). Das Makro funktioniert nur bei .xlsx-Dateien.<\/li><\/ul>\n\n\n\n
Laufzeitfehler 76: Die Datei kann nicht gefunden werden. <\/p>\n\n\n\n
- Die Excel-Datei ist ein .xls-Dateityp. Das Makro funktioniert nur bei .xlsx-Dateien.<\/li>
- Die Datei ist gegen \u00d6ffnen gesch\u00fctzt.<\/li><\/ul>\n\n\n\n
Laufzeitfehler 91: Objektvariable oder mit Blockvariable nicht gesetzt.<\/p>\n\n\n\n
- Sie versuchen, das Makro auf einem Mac auszuf\u00fchren. Das Makro funktioniert nur auf einem Windows-Computer.<\/li><\/ul>\n\n\n\n
Knacken eines bin\u00e4ren VBA-Projekts<\/h3>\n\n\n\n
- Sie versuchen, das Makro auf einem Mac auszuf\u00fchren. Das Makro funktioniert nur auf einem Windows-Computer.<\/li><\/ul>\n\n\n\n
- Die Excel-Datei ist ein .xlsb-Dateityp (bin\u00e4re Excel-Datei). Das Makro funktioniert nur bei .xlsx-Dateien.<\/li><\/ul>\n\n\n\n
- Erstellen Sie eine Kopie der Beispieldatei und \u00e4ndern Sie die Erweiterung in .zip<\/li><\/ol>\n\n\n\n