Ich wurde gebeten, einige Excel 2003-Makros zu aktualisieren, aber die VBA-Projekte sind kennwortgeschützt, und es scheint, dass es an Dokumentation mangelt ... niemand kennt die Kennwörter.

Gibt es eine Möglichkeit, das Kennwort in einem VBA-Projekt zu entfernen oder zu knacken?

Sie können diesen direkten VBAAnsatz ausprobieren, für den keine HEX-Bearbeitung erforderlich ist. Es funktioniert für alle Dateien (* .xls, * .xlsm, * .xlam ...).

Getestet und arbeitet an:

Excel 2007
Excel 2010
Excel 2013 - 32-Bit-Version
Excel 2016 - 32-Bit-Version

Suchen Sie nach einer 64-Bit-Version? Siehe diese Antwort

Wie es funktioniert

Ich werde mein Bestes geben, um zu erklären, wie es funktioniert - bitte entschuldigen Sie mein Englisch.

1. Die VBE ruft eine Systemfunktion auf, um das Kennwortdialogfeld zu erstellen.
2. Wenn der Benutzer das richtige Kennwort eingibt und auf OK klickt, gibt diese Funktion 1 zurück. Wenn der Benutzer das falsche Kennwort eingibt oder auf Abbrechen klickt, gibt diese Funktion 0 zurück.
3. Nach dem Schließen des Dialogfelds überprüft der VBE den zurückgegebenen Wert der Systemfunktion
4. Wenn dieser Wert 1 ist, "denkt" die VBE, dass das Kennwort richtig ist, daher wird das gesperrte VBA-Projekt geöffnet.
5. Der folgende Code tauscht den Speicher der ursprünglichen Funktion zum Anzeigen des Kennwortdialogs gegen eine benutzerdefinierte Funktion aus, die beim Aufruf immer 1 zurückgibt.

Den Code verwenden

Bitte sichern Sie zuerst Ihre Dateien!

1. Öffnen Sie die Datei (en), die Ihre gesperrten VBA-Projekte enthalten

2. Erstellen Sie eine neue XLSM-Datei und speichern Sie diesen Code in Modul1

   code credited to Siwtom (nick name), a Vietnamese developer

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
           (Destination As Long, Source As Long, ByVal Length As Long)
   
   Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _
           ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
   
   Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
   
   Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _
           ByVal lpProcName As String) As Long
   
   Private Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, _
           ByVal pTemplateName As Long, ByVal hWndParent As Long, _
           ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
   
   Dim HookBytes(0 To 5) As Byte
   Dim OriginBytes(0 To 5) As Byte
   Dim pFunc As Long
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As Long) As Long
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 5) As Byte
       Dim p As Long
       Dim OriginProtect As Long
   
       Hook = False
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
   
       If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
           If TmpBytes(0) <> &H68 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               HookBytes(0) = &H68
               MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
               HookBytes(5) = &HC3
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As Long, _
           ByVal pTemplateName As Long, ByVal hWndParent As Long, _
           ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                              hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function

3. Fügen Sie diesen Code unter den obigen Code in Modul 1 ein und führen Sie ihn aus

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub

4. Kommen Sie zurück zu Ihren VBA-Projekten und genießen Sie.

Ja, solange Sie eine .xlsFormat-Tabelle verwenden (die Standardeinstellung für Excel bis 2003). Ab Excel 2007 ist die Standardeinstellung .xlsxein ziemlich sicheres Format, und diese Methode funktioniert nicht.

Wie Treb sagt, ist es ein einfacher Vergleich. Eine Methode besteht darin, den Kennworteintrag in der Datei einfach mit einem Hex-Editor auszutauschen (siehe Hex-Editoren für Windows ). Schritt für Schritt Beispiel:

1. Erstellen Sie eine neue einfache Excel-Datei.
2. Legen Sie im VBA-Teil ein einfaches Kennwort fest (z. B. - 1234).
3. Speichern Sie die Datei und beenden Sie sie. Überprüfen Sie dann die Dateigröße - siehe Stewbobs Gotcha
4. Öffnen Sie die gerade erstellte Datei mit einem Hex-Editor.

5. Kopieren Sie die Zeilen beginnend mit den folgenden Tasten:

   CMG=....
   DPB=...
   GC=...

6. ERSTE SICHERUNG der Excel-Datei, für die Sie das VBA-Kennwort nicht kennen, öffnen Sie sie dann mit Ihrem Hex-Editor und fügen Sie die oben kopierten Zeilen aus der Dummy-Datei ein.

7. Speichern Sie die Excel-Datei und beenden Sie.
8. Öffnen Sie nun die Excel-Datei, in der der VBA-Code angezeigt werden soll. Das Kennwort für den VBA-Code lautet einfach 1234 (wie in dem hier gezeigten Beispiel).

Wenn Sie mit Excel 2007 oder 2010 arbeiten müssen, gibt es unten einige andere Antworten, die hilfreich sein können, insbesondere diese: 1 , 2 , 3 .

EDIT Feb 2015: Für eine andere Methode, die sehr vielversprechend aussieht, schauen Sie sich diese neue Antwort von Thc Thanh Nguyễn an.

Ich habe auf der fantastischen Antwort von Thc Thanh Nguyễn aufgebaut, damit diese Methode mit 64-Bit-Versionen von Excel funktioniert. Ich verwende Excel 2010 64-Bit unter 64-Bit Windows 7.

1. Öffnen Sie die Datei (en), die Ihre gesperrten VBA-Projekte enthalten.

2. Erstellen Sie eine neue XLSM-Datei und speichern Sie diesen Code in Modul1

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
   
   Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
   ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
   
   Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
   
   Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
   ByVal lpProcName As String) As LongPtr
   
   Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
   Dim HookBytes(0 To 5) As Byte
   Dim OriginBytes(0 To 5) As Byte
   Dim pFunc As LongPtr
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As LongPtr) As LongPtr
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 5) As Byte
       Dim p As LongPtr
       Dim OriginProtect As LongPtr
   
       Hook = False
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
   
       If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
           If TmpBytes(0) <> &H68 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               HookBytes(0) = &H68
               MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
               HookBytes(5) = &HC3
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                      hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function

3. Fügen Sie diesen Code in Modul 2 ein und führen Sie ihn aus

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub

HAFTUNGSAUSSCHLUSS Das hat bei mir funktioniert und ich habe es hier dokumentiert, in der Hoffnung, dass es jemandem hilft. Ich habe es nicht vollständig getestet . Bitte speichern Sie alle geöffneten Dateien, bevor Sie mit dieser Option fortfahren.

Es gibt eine andere (etwas einfachere) Lösung ohne Größenprobleme. Ich habe diesen Ansatz heute verwendet (in einer 2003 XLS-Datei mit Excel 2007) und war erfolgreich.

1. Sichern Sie die XLS-Datei
2. Öffnen Sie die Datei in einem HEX-Editor und suchen Sie das DPB=...Teil
3. Ändern Sie die DPB=...Zeichenfolge inDPx=...
4. Öffnen Sie die XLS-Datei in Excel
5. Öffne den VBA-Editor ( ALT+ F11)
6. Die Magie: Excel entdeckt einen ungültigen Schlüssel (DPx) und fragt, ob Sie das Projekt weiter laden möchten (ohne den Schutz zu beachten).
7. Sie können das Passwort überschreiben, also ändern Sie es in etwas, an das Sie sich erinnern können
8. Speichern Sie die XLS-Datei *
9. Schließen Sie das Dokument, öffnen Sie es erneut und arbeiten Sie an Ihrer VBA-Magie!

* HINWEIS: Stellen Sie sicher, dass Sie das Kennwort in einen neuen Wert geändert haben. Andernfalls werden beim nächsten Öffnen der Tabelle in Excel Fehler gemeldet (unerwarteter Fehler). Wenn Sie dann auf die Liste der VBA-Module zugreifen, werden die Namen der angezeigt Quellmodule erhalten jedoch einen weiteren Fehler beim Versuch, Formulare / Code / etc. zu öffnen. Um dies zu beheben, kehren Sie zu den VBA-Projekteigenschaften zurück und setzen Sie das Kennwort auf einen neuen Wert. Speichern Sie das Excel-Dokument und öffnen Sie es erneut.

Colin Pickard hat eine ausgezeichnete Antwort, aber es gibt eine "Vorsicht". Es gibt Fälle (ich habe die Ursache noch nicht herausgefunden), in denen sich die Gesamtlänge des Eintrags "CMG = ........ GC = ...." in der Datei von einer Excel-Datei zur unterscheidet Nächster. In einigen Fällen beträgt dieser Eintrag 137 Byte, in anderen 143 Byte. Die Länge von 137 Byte ist ungerade. Wenn dies passiert, wenn Sie Ihre Datei mit dem Kennwort '1234' erstellen, erstellen Sie einfach eine weitere Datei, und sie sollte auf die Länge von 143 Byte springen.

Wenn Sie versuchen, die falsche Anzahl von Bytes in die Datei einzufügen, verlieren Sie Ihr VBA-Projekt, wenn Sie versuchen, die Datei mit Excel zu öffnen.

BEARBEITEN

Dies gilt nicht für Excel 2007/2010-Dateien. Das Standard-XLSX-Dateiformat ist eine ZIP-Datei, die zahlreiche Unterordner enthält, deren Formatierung, Layout, Inhalt usw. als XML-Daten gespeichert sind. Für eine ungeschützte Excel 2007-Datei können Sie einfach die XLSX-Erweiterung in ZIP ändern, dann die ZIP-Datei öffnen und alle XML-Daten durchsuchen. Es ist sehr einfach.

Wenn Sie jedoch eine Excel 2007-Datei mit einem Kennwort schützen, wird die gesamte ZIP-Datei (XLSX) tatsächlich mit RSA-Verschlüsselung verschlüsselt. Es ist nicht mehr möglich, die Erweiterung in .zip zu ändern und den Dateiinhalt zu durchsuchen.

Für einen .xlsmoder .dotmDateityp müssen Sie dies auf eine etwas andere Weise tun.

1. Ändern Sie die Erweiterung der .xlsmDatei in.zip .
2. Öffnen Sie die ZIP-Datei (mit WinZip oder WinRar usw.) und wechseln Sie in den Ordner xl.
3. Extrahieren Sie die vbaProject.binDatei und öffnen Sie sie in einem Hex-Editor (ich verwende HxD , es ist völlig kostenlos und leicht.)
4. Suchen DPBund ersetzen Sie DPxdie Datei und speichern Sie sie.
5. Ersetzen Sie die alte vbaProject.binDatei durch diese neue in der komprimierten Datei.
6. Ändern Sie die Dateierweiterung wieder in .xlsm.
7. Öffnen Sie die Arbeitsmappe und überspringen Sie die Warnmeldungen.
8. Öffnen Sie Visual Basic in Excel.
9. Gehen Sie zu Extras> VBAProject-Eigenschaften> Registerkarte Schutz.
10. Geben Sie ein neues Passwort ein und speichern Sie die .xlsmDatei.
11. Schließen und erneut öffnen und Ihr neues Passwort funktioniert.

Wenn Sie eine Excel 2007-Datei (xlsm) haben, können Sie diese einfach als Excel 2003-Datei (xlsm) speichern und die in anderen Antworten beschriebenen Methoden verwenden.

Wenn ich an der Reihe bin, basiert dies auf der hervorragenden Antwort von kaybee99, die auf der fantastischen Antwort von Thc Thanh Nguyễn basiert, damit diese Methode sowohl mit x86- als auch mit amd64-Versionen von Office funktioniert.

Um einen Überblick über die Änderungen zu erhalten, vermeiden wir Push / Ret, das auf 32-Bit-Adressen beschränkt ist, und ersetzen es durch mov / jmp reg.

Getestet und arbeitet daran

Word / Excel 2016 - 32-Bit-Version .
Word / Excel 2016 - 64-Bit-Version .

wie es funktioniert

1. Öffnen Sie die Datei (en), die Ihre gesperrten VBA-Projekte enthalten.

2. Erstellen Sie eine neue Datei mit demselben Typ wie oben und speichern Sie diesen Code in Modul1

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
   
   Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
   ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
   
   Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
   
   Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
   ByVal lpProcName As String) As LongPtr
   
   Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
   Dim HookBytes(0 To 11) As Byte
   Dim OriginBytes(0 To 11) As Byte
   Dim pFunc As LongPtr
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As LongPtr) As LongPtr
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 12
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 11) As Byte
       Dim p As LongPtr, osi As Byte
       Dim OriginProtect As LongPtr
   
       Hook = False
   
       #If Win64 Then
           osi = 1
       #Else
           osi = 0
       #End If
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
       If VirtualProtect(ByVal pFunc, 12, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, osi+1
           If TmpBytes(osi) <> &HB8 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 12
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               If osi Then HookBytes(0) = &H48
               HookBytes(osi) = &HB8
               osi = osi + 1
               MoveMemory ByVal VarPtr(HookBytes(osi)), ByVal VarPtr(p), 4 * osi
               HookBytes(osi + 4 * osi) = &HFF
               HookBytes(osi + 4 * osi + 1) = &HE0
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 12
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                      hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function

3. Fügen Sie diesen Code in Modul 2 ein und führen Sie ihn aus

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub

Haben Sie versucht, sie einfach in OpenOffice.org zu öffnen?

Ich hatte vor einiger Zeit ein ähnliches Problem und stellte fest, dass Excel und Calc die Verschlüsselung des anderen nicht verstanden und daher direkten Zugriff auf nahezu alles ermöglichten.

Dies ist eine Weile her, und wenn das nicht nur ein Zufall von meiner Seite war, wurde es möglicherweise auch gepatcht.

Für den Fall, dass Ihr Block von CMG="XXXX"\r\nDPB="XXXXX"\r\nGC="XXXXXX" in Ihrer Datei "Bekanntes Passwort" kürzer ist als der vorhandene Block in der Datei "Unbekanntes Passwort", füllen Sie Ihre Hex-Zeichenfolgen mit nachgestellten Nullen auf, um die richtige Länge zu erreichen.

z.B

CMG="xxxxxx"\r\nDPB="xxxxxxxx"\r\nGC="xxxxxxxxxx"

sollte in der unbekannten Passwortdatei auf gesetzt sein

CMG="XXXX00"\r\nDPB="XXXXX000"\r\nGC="XXXXXX0000" um die Dateilänge zu erhalten.

Ich habe dies auch mit .XLA-Dateien (97/2003 Format) in Office 2007 arbeiten lassen.

Ab Excel 2007 müssen Sie Ihre Dateierweiterung in .zip ändern. Im Archiv befindet sich ein Unterordner xl. Dort finden Sie vbaProject.bin. Befolgen Sie den obigen Schritt mit vbaProject.bin und speichern Sie es wieder im Archiv. Ändern Sie Ihre Erweiterung und voilà zurück! (dh folgen Sie den obigen Schritten)

VBA-Projektkennwörter für Access-, Excel-, Powerpoint- oder Word-Dokumente ( 2007, 2010, 2013 or 2016Versionen mit Erweiterungen .ACCDB .XLSM .XLTM .DOCM .DOTM .POTM .PPSM) können problemlos entfernt werden .

Es geht einfach darum, die Dateinamenerweiterung in zu .ZIPändern, die Datei zu entpacken und einen einfachen Hex-Editor (wie XVI32) zu verwenden ) zu verwenden, um das vorhandene Kennwort zu "brechen", wodurch Office "verwirrt" wird und beim nächsten nach einem neuen Kennwort wird geöffnet.

Eine Zusammenfassung der Schritte:

• Benennen Sie die Datei so um, dass sie eine hat .ZIP Erweiterung hat.
• öffne das ZIPund gehe zumXL Ordner.
• extrahieren vbaProject.binund öffnen Sie es mit einem Hex-Editor
• "Suchen & Ersetzen", um "alle zu ersetzen", wechselt DPBzu DPX.
• Speichern Sie die Änderungen, platzieren Sie die .binDatei wieder in der Zip-Datei, kehren Sie zur normalen Erweiterung zurück und öffnen Sie die Datei wie gewohnt.
• ALT + F11, um den VB-Editor aufzurufen, und klicken Sie mit der rechten Maustaste in den Projektexplorer, um eine Auswahl zu treffen VBA Project Properties.
• ProtectionLegen Sie auf der Registerkarte ein neues Kennwort fest.
• Klicken Sie auf OK, schließen Sie die Datei, öffnen Sie sie erneut und drücken Sie ALT + F11.
• Geben Sie das neue Passwort ein, das Sie festgelegt haben.

Zu diesem Zeitpunkt können Sie das Kennwort bei Bedarf vollständig entfernen.

Eine vollständige Anleitung mit Schritt- für -Schritt - Video habe ich „Weg zurück , wenn“ sind auf YouTube hier .

Es ist schockierend, dass es diese Problemumgehung seit Jahren gibt und Microsoft das Problem nicht behoben hat.

Die Moral der Geschichte?

Microsoft Office VBA - Projekt Passwörter sind nicht darauf verlassen , werden für Sicherheit jeder sensible Informationen . Wenn Sicherheit wichtig ist, verwenden Sie Verschlüsselungssoftware von Drittanbietern.

Colin Pickard ist größtenteils korrekt, aber verwechseln Sie den Schutz zum Öffnen des Kennworts für die gesamte Datei nicht mit dem VBA-Kennwortschutz, der sich vollständig vom vorherigen unterscheidet und für Office 2003 und 2007 identisch ist (für Office 2007 umbenennen) die Datei in .zip und suchen Sie nach der Datei vbaProject.bin in der Zip). Technisch gesehen besteht die richtige Methode zum Bearbeiten der Datei darin, einen zusammengesetzten OLE-Dokument-Viewer wie CFX zu verwenden, um den richtigen Stream zu öffnen. Wenn Sie nur Bytes ersetzen, funktioniert der einfache alte Binäreditor natürlich.

Übrigens, wenn Sie sich über das genaue Format dieser Felder wundern, haben sie es jetzt dokumentiert:

http://msdn.microsoft.com/en-us/library/dd926151%28v=office.12%29.aspx

Wenn es sich bei der Datei um eine gültige Zip-Datei handelt (die ersten Bytes werden 50 4Bin Formaten wie verwendet .xlsm), entpacken Sie die Datei und suchen Sie nach der Subdatei xl/vbaProject.bin. Dies ist eine CFB-Datei wie die.xls Dateien. Befolgen Sie die Anweisungen für das XLS-Format (angewendet auf die Subdatei) und komprimieren Sie dann einfach den Inhalt.

Für das XLS-Format können Sie einige der anderen Methoden in diesem Beitrag befolgen. Ich persönlich bevorzuge es, nach dem DPB=Block zu suchen und den Text zu ersetzen

CMG="..."
DPB="..."
GC="..."

mit Leerzeichen. Dies vermeidet Probleme mit der CFB-Containergröße.

Ich habe einige der oben genannten Lösungen ausprobiert und keine davon funktioniert für mich (Excel 2007 XLSM-Datei). Dann habe ich eine andere Lösung gefunden, die sogar das Passwort abruft und nicht nur knackt.

Fügen Sie diesen Code in das Modul ein, führen Sie ihn aus und geben Sie ihm etwas Zeit. Es wird Ihr Passwort mit brutaler Gewalt wiederherstellen.

Sub PasswordBreaker()

'Breaks worksheet password protection.

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

ElcomSoft stellt Advanced Office Password Breaker- und Advanced Office Password Recovery- Produkte her, die für diesen Fall gelten können, sofern das Dokument in Office 2007 oder früher erstellt wurde.

Tom - Ich habe anfangs einen Schuljungenfehler gemacht, da ich die Bytegröße nicht beobachtet habe und stattdessen von der "CMG" -Einstellung bis zum nachfolgenden Eintrag kopiert und eingefügt habe. Dies waren jedoch zwei unterschiedliche Textgrößen zwischen den beiden Dateien, und ich verlor das VBA-Projekt, genau wie Stewbob es warnte.

Bei Verwendung von HxD gibt es einen Zähler, der nachverfolgt, wie viele Dateien Sie auswählen. Kopieren Sie ab CMG, bis der Zähler 8F (hex für 143) anzeigt, und ebenso beim Einfügen in die gesperrte Datei - ich hatte am Ende der Paste die doppelte Anzahl von "...", was irgendwie seltsam aussah und sich fast anfühlte unnatürlich, aber es hat funktioniert.

Ich weiß nicht, ob es wichtig ist, aber ich habe sichergestellt, dass ich sowohl den Hex-Editor als auch Excel heruntergefahren habe, bevor ich die Datei in Excel erneut öffne. Ich musste dann die Menüs durchgehen, um den VB-Editor in den VBProject-Eigenschaften zu öffnen, und das 'neue' Passwort eingeben, um den Code zu entsperren.

Ich hoffe das hilft.

Mein Tool VbaDiff liest VBA direkt aus der Datei, sodass Sie damit geschützten VBA-Code aus den meisten Office-Dokumenten wiederherstellen können, ohne auf einen Hex-Editor zurückgreifen zu müssen.

Der Schutz ist ein einfacher Textvergleich in Excel. Laden Sie Excel in Ihren bevorzugten Debugger ( Ollydbg ist mein bevorzugtes Tool), suchen Sie den Code, der den Vergleich durchführt, und korrigieren Sie ihn so, dass immer true zurückgegeben wird. Dadurch sollten Sie auf die Makros zugreifen können.

Für Excel 2016 64-Bit auf einem Windows 10-Computer habe ich einen Hex-Editor verwendet, um das Kennwort eines geschützten xla ändern zu können (habe dies nicht für andere Erweiterungen getestet). Tipp: Erstellen Sie zuvor ein Backup.

Die Schritte, die ich unternommen habe:

1. Öffnen Sie die VBA im Hex-Editor (zum Beispiel XVI).
2. Suchen Sie auf dieser DPB
3. Ändern Sie DPB in etwas anderes wie DPX
4. Speichern Sie es!
5. Öffnen Sie die .xla erneut. Eine Fehlermeldung wird angezeigt. Fahren Sie einfach fort.
6. Sie können jetzt das Kennwort der .xla ändern, indem Sie die Eigenschaften öffnen und zur Registerkarte Kennwort wechseln.

Ich hoffe das hat einigen von euch geholfen!

Die Erweiterung Ihrer Excel-Datei wird in XML geändert. Und öffnen Sie es im Notizblock. Passwort Text in XML-Datei finden.

Sie sehen wie unter der Linie;

Sheets("Sheet1").Unprotect Password:="blabla"

(Entschuldigung für mein schlechtes Englisch)

Wenn Sie in arbeiten Java, können Sie versuchen VBAMacroExtractor. Nach dem Extrahieren von VBA-Skripten aus .xlsmhabe ich dort das Passwort im Klartext gefunden.