Есть ли способ взломать пароль в проекте Excel VBA?

Question

Меня попросили обновить некоторые макросы Excel 2003, но проекты VBA защищены паролем, и, похоже, не хватает документации... никто не знает пароли.

Есть ли способ удаления или взлома пароля в проекте VBA?

Answer 1

Вы можете попробовать это прямо VBA подход, который не требует редактирования HEX. Это будет работать для любых файлов (*.xls, *.xlsm, *.xlam ...).

Проверено и работает на

Excel 2007
Excel 2010
Excel 2013 - 32-битная версия.
Excel 2016 - 32-битная версия.

Ищете 64-битную версию? См. /questions/10669967/est-li-sposob-vzlomat-parol-v-proekte-excel-vba/10670006#10670006

как это устроено

Я постараюсь объяснить, как это работает - извините, пожалуйста, за мой английский.

1. VBE вызовет системную функцию для создания диалогового окна пароля.
2. Если пользователь вводит правильный пароль и нажимает ОК, эта функция возвращает 1. Если пользователь вводит неправильный пароль или нажимает Отмена, эта функция возвращает 0.
3. После закрытия диалогового окна VBE проверяет возвращаемое значение системной функции.
4. если это значение равно 1, VBE будет "думать", что пароль верный, поэтому заблокированный проект VBA будет открыт.
5. Приведенный ниже код заменяет память исходной функции, использованной для отображения диалогового окна ввода пароля, с пользовательской функцией, которая всегда будет возвращать 1 при вызове.

используя код

Пожалуйста, сделайте резервную копию ваших файлов в первую очередь!

1. Откройте файл (ы), которые содержат ваши заблокированные проекты VBA

2. Создайте новый файл xlsm и сохраните этот код в Module1

   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. Вставьте этот код под вышеуказанным кодом в Module1 и запустите его

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

4. Возвращайтесь к своим проектам VBA и наслаждайтесь.

Answer 2

Да, если вы используете .xls формат электронной таблицы (по умолчанию для Excel до 2003 года). Для Excel 2007 года по умолчанию .xlsx, который является довольно безопасным форматом, и этот метод не будет работать.

Как говорит Треб, это простое сравнение. Один из способов - просто заменить запись пароля в файле с помощью шестнадцатеричного редактора (см. Шестнадцатеричные редакторы для Windows). Пошаговый пример:

1. Создайте новый простой файл Excel.
2. В части VBA установите простой пароль (скажем, 1234).
3. Сохраните файл и выйдите. Затем проверьте размер файла - посмотрите, что получит Stewbob
4. Откройте файл, который вы только что создали с помощью шестнадцатеричного редактора.

5. Скопируйте строки, начиная со следующих ключей:

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

6. Сначала создайте резервную копию файла Excel, для которого вы не знаете пароль VBA, затем откройте его с помощью своего шестнадцатеричного редактора и вставьте скопированные выше строки из фиктивного файла.

7. Сохраните файл Excel и выйдите.
8. Теперь откройте файл Excel, в котором вы хотите увидеть код VBA. Пароль для кода VBA будет просто 1234 (как в примере, который я показываю здесь).

Если вам нужно работать с Excel 2007 или 2010, ниже могут быть полезны и другие ответы, в частности: 1, 2, 3.

РЕДАКТИРОВАТЬ Февраль 2015: для другого метода, который выглядит очень многообещающим, посмотрите на этот новый ответ Đức Thanh Nguyễn.

Answer 3

Я основывался на фантастическом ответе Тхана Нгуйена, чтобы этот метод мог работать с 64-битными версиями Excel. Я использую 64-битную версию Excel 2010 на 64-битной Windows 7.

1. Откройте файл (ы), которые содержат ваши заблокированные проекты VBA.

2. Создайте новый файл xlsm и сохраните этот код в Module1

   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. Вставьте этот код в Module2 и запустите его

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

ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ Это сработало для меня, и я задокументировал это здесь в надежде, что это поможет кому-то. Я не полностью проверил это. Пожалуйста, не забудьте сохранить все открытые файлы, прежде чем продолжить с этой опцией.

Answer 4

Есть другое (несколько более простое) решение без проблем с размером. Я использовал этот подход сегодня (в файле 2003 XLS, используя Excel 2007) и был успешным.

1. Резервное копирование файла XLS
2. Откройте файл в редакторе HEX и найдите DPB=... часть
3. Изменить DPB=... строка в DPx=...
4. Откройте файл xls в Excel
5. Откройте редактор VBA (ALT + F11)
6. магия: Excel обнаруживает неверный ключ (DPx) и спрашивает, хотите ли вы продолжить загрузку проекта (в основном игнорируя защиту)
7. Вы сможете перезаписать пароль, поэтому измените его на то, что вы можете запомнить
8. Сохранить файл xls *
9. Закройте и снова откройте документ и примените магию VBA!

* ПРИМЕЧАНИЕ. Убедитесь, что вы изменили пароль на новое значение, в противном случае при следующем открытии электронной таблицы Excel сообщит об ошибках (неожиданная ошибка), а затем при доступе к списку модулей VBA вы увидите имена исходные модули, но при попытке открыть формы / код / ​​и т. д. появляется другая ошибка Чтобы исправить это, вернитесь в Свойства проекта VBA и установите новое значение пароля. Сохраните и снова откройте документ Excel, и все будет хорошо!

Answer 5

С моей стороны, это основано на превосходном ответе kaybee99, который основан на фантастическом ответе Тхана Нгуйена, чтобы этот метод мог работать как с версиями Office для x86, так и для amd64.

Обзор того, что изменилось, мы избегаем push/ret, который ограничен 32-битными адресами, и заменяем его на mov/jmp reg.

Проверено и работает на

Word / Excel 2016 - 32-битная версия.
Word / Excel 2016 - 64-битная версия.

как это устроено

1. Откройте файл (ы), которые содержат ваши заблокированные проекты VBA.

2. Создайте новый файл того же типа, что и выше, и сохраните этот код в Module1

   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. Вставьте этот код в Module2 и запустите его

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

Answer 6

Для .xlsm или же .dotm Тип файла вам нужно сделать это немного по-другому.

1. Изменить расширение .xlsm подать в .zip,
2. Откройте файл.zip (с помощью WinZip или WinRar и т. Д.) И перейдите в папку xl.
3. Извлечь vbaProject.bin файл и откройте его в Hex Editor (я использую HxD, он совершенно бесплатный и легкий).
4. Ищи DPB и заменить на DPx и сохраните файл.
5. Замени старое vbaProject.bin файл с этим новым в архивном файле.
6. Измените расширение файла обратно на .xlsm,
7. Открытая рабочая книга пропускает предупреждающие сообщения.
8. Откройте Visual Basic внутри Excel.
9. Перейдите в Инструменты> Свойства VBAProject> Вкладка Защита.
10. Введите новый пароль и сохраните .xlsm файл.
11. Закройте и снова откройте, и ваш новый пароль будет работать.

Answer 7

У Колина Пикарда отличный ответ, но есть один "остерегаться" этого. Есть случаи (я еще не выяснил причину), когда общая длина записи "CMG=........GC=...." в файле отличается от одного файла Excel до следующий. В некоторых случаях эта запись будет 137 байтов, а в других - 143 байта. Длина 137 байт является нечетной, и если это происходит при создании файла с паролем "1234", просто создайте другой файл, и он должен перейти к длине 143 байта.

Если вы попытаетесь вставить в файл неправильное количество байтов, вы потеряете ваш проект VBA, когда попытаетесь открыть файл в Excel.

РЕДАКТИРОВАТЬ

Это недопустимо для файлов Excel 2007/2010. Стандартный формат файла.xlsx на самом деле представляет собой файл.zip, содержащий многочисленные подпапки с форматированием, макетом, содержимым и т. Д., Которые хранятся в виде данных XML. Для незащищенного файла Excel 2007 вы можете просто изменить расширение.xlsx на.zip, затем открыть файл zip и просмотреть все данные XML. Это очень просто.

Однако когда вы защищаете файл Excel 2007 паролем, весь файл.zip (.xlsx) фактически шифруется с использованием шифрования RSA. Больше невозможно изменить расширение на.zip и просмотреть содержимое файла.

Answer 8

Стоит отметить, что если у вас есть файл Excel 2007 (xlsm), вы можете просто сохранить его как файл Excel 2003 (xls) и использовать методы, описанные в других ответах.

Answer 9

Пароли проекта VBA в документах Access, Excel, Powerpoint или Word (2007, 2010, 2013 or 2016 версии с расширениями .ACCDB .XLSM .XLTM .DOCM .DOTM .POTM .PPSM) могут быть легко удалены.

Это просто вопрос изменения расширения имени файла на .ZIP разархивирование файла и использование любого основного шестнадцатеричного редактора (например, XVI32) для "взлома" существующего пароля, что "смущает" Office, поэтому он запрашивает новый пароль при следующем открытии файла.

Краткое изложение шагов:

• переименуйте файл, чтобы он имел .ZIP расширение.
• Открой ZIP и перейти к XL папка.
• экстракт vbaProject.bin и откройте его с помощью Hex Editor
• "Поиск и замена", чтобы "заменить все" меняется DPB в DPX,
• Сохраните изменения, поместите .bin верните файл в нормальное расширение и откройте файл как обычно.
• ALT + F11, чтобы войти в VB Editor и щелкнуть правой кнопкой мыши в Project Explorer, чтобы выбрать VBA Project Properties,
• На Protection вкладка, установить новый пароль.
• Нажмите OK, Закройте файл, снова откройте его, нажмите ALT+F11.
• Введите новый пароль, который вы установили.

На этом этапе вы можете полностью удалить пароль, если захотите.

Подробные инструкции с пошаговым видео, которое я сделал "когда-то", находятся на YouTube здесь.

Это шокирует, что этот обходной путь существует уже много лет, и Microsoft не устранила проблему.

---

Мораль этой истории?

Пароли проекта Microsoft Office VBA не должны использоваться для обеспечения безопасности любой конфиденциальной информации. Если важна безопасность, используйте стороннее программное обеспечение для шифрования.

Answer 10

Вы пытались просто открыть их в OpenOffice.org?

Некоторое время назад у меня была похожая проблема, и я обнаружил, что Excel и Calc не понимают шифрование друг друга и поэтому разрешают прямой доступ практически ко всему.

Это было некоторое время назад, поэтому, если бы это была не просто случайность с моей стороны, это также могло быть исправлено.

Answer 11

В том случае, если ваш блок CMG="XXXX"\r\nDPB="XXXXX"\r\nGC="XXXXXX"в вашем файле "известного пароля" короче, чем в существующем блоке в файле "неизвестного пароля", добавьте шестнадцатеричные строки с конечными нулями, чтобы получить правильную длину.

например

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

в файле с неизвестным паролем, должно быть установлено

CMG="XXXX00"\r\nDPB="XXXXX000"\r\nGC="XXXXXX0000" сохранить длину файла.

У меня также была эта работа с файлами.XLA (формат 97/2003) в Office 2007.

Answer 12

Для Excel 2007 года вам нужно изменить расширение файла на.zip. В архиве есть подпапка xl, в которой вы найдете vbaProject.bin. Выполните шаг выше с vbaProject.bin, затем сохраните его обратно в архиве. Измените свое расширение и вуаля! (то есть следуйте инструкциям выше)

Answer 13

Я попробовал некоторые из решений выше, и ни одно из них не работает для меня (файл Excel 2007 xlsm). Затем я нашел другое решение, которое даже восстанавливает пароль, а не просто взламывает его.

Вставьте этот код в модуль, запустите его и дайте ему немного времени. Он восстановит ваш пароль грубой силой.

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

Answer 14

Колин Пикард в основном прав, но не путайте защиту "пароль для открытия" для всего файла с защитой паролем VBA, которая полностью отличается от предыдущей и одинакова для Office 2003 и 2007 (для Office 2007 переименуйте файл в.zip и найдите vbaProject.bin внутри zip). И что технически правильный способ редактирования файла - использовать OLE составное средство просмотра документов, такое как CFX, чтобы открыть правильный поток. Конечно, если вы просто заменяете байты, может работать обычный старый бинарный редактор.

Кстати, если вас интересует точный формат этих полей, они уже задокументированы:

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

Answer 15

Если файл является допустимым zip-файлом (первые несколько байтов 50 4B - используется в таких форматах, как .xlsm), затем разархивируйте файл и найдите подфайл xl/vbaProject.bin, Это файл CFB, как и .xls файлы. Следуйте инструкциям для формата XLS (применяется к подфайлу), а затем просто заархивируйте содержимое.

Для формата XLS вы можете использовать некоторые другие методы в этом посте. Я лично предпочитаю искать DPB= заблокировать и заменить текст

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

с пробелами. Это устраняет проблемы с размером контейнера CFB.

Answer 16

ElcomSoft производит Advanced Office Password Breaker и Advanced Office Password Recovery продукты, которые могут применяться в этом случае, если документ был создан в Office 2007 или более ранней версии.

Answer 17

Том - я сначала сделал ошибку для школьника, так как не смотрел размер байта, а вместо этого скопировал и вставил из "CMG", настроенного для последующей записи. Это были два разных размера текста между этими двумя файлами, и я потерял проект VBA, как и предупреждал Stewbob.

Используя HxD, есть счетчик, отслеживающий, сколько файлов вы выбираете. Скопируйте, начиная с CMG, пока счетчик не прочитает 8F (гекс для 143), а также, когда вставляете в заблокированный файл - я получил вдвое больше "..." в конце вставки, что выглядело как-то странно и ощущалось почти неестественно, но это сработало.

Я не знаю, насколько это важно, но я убедился, что закрыл и шестнадцатеричный редактор, и выключил Excel, прежде чем снова открыть файл в Excel. Затем мне пришлось пройти через меню, чтобы открыть VB Editor, в VBProject Properties и ввести "новый" пароль, чтобы разблокировать код.

Надеюсь, это поможет.

Answer 18

Принятый ответ не работал в Excel 2019 в Windows 10. Обнаружены дополнительные шаги, которые нам нужно предпринять, чтобы увидеть заблокированный макрос. Я резюмирую шаги.

1. Добавьте .zip в конец имени файла excel и нажмите Enter.

2. Как только файл будет преобразован в ZIP-файл, откройте его, дважды щелкнув по нему.

3. Внутри вы увидите папку с именем xl, как показано ниже.

4. Внутри xl вы найдете файл с именем vbaProject.bin, скопируйте/вставьте его на рабочий стол.

5. Перейдите в онлайн-редактор шестнадцатеричных символов HexEd.it.

6. Найдите следующие тексты DPB=... и измените их на DPx=...

7. Сохраните файл и закройте HexEd.it.

8. Скопируйте / вставьте обновленный файл со своего рабочего стола в ZIP-файл (вам нужно будет перезаписать его)

9. Удалите расширение .zip в конце имени файла и снова добавьте расширение Excel.

10. Откройте файл в Excel — вы можете получить пару уведомлений об ошибках, просто нажмите на них.

==== ДОПОЛНИТЕЛЬНЫЕ ШАГИ НАД ПРИНЯТЫМ ОТВЕТОМ =====

11. Откройте окно Visual Basic (обычно ALT+F11, если я правильно помню) и откройте свойства VBAProject (меню "Инструменты").
12. Перейдите на вкладку «Защита» и измените (не удаляйте на этом этапе) пароль на что-то короткое и легко запоминающееся (мы удалим его на следующем шаге).
13. Сохраните книгу, а затем закройте и снова откройте.
14. Снова откройте окно Visual Basic и введите пароль, который вы только что ввели. Повторите предыдущий шаг, но на этот раз вы можете удалить (удалить) пароль.
15. Сохраните книгу, и теперь вы удалили пароль.

Дополнительные шаги выполняются на следующем сайте https://confluence.jaytaala.com/display/TKB/Remove+Excel+VBA+password

Answer 19

Правда в том, что файлы кода для большинства документов Office с поддержкой макросов не зашифрованы, а пароль только предотвращает открытие проекта с помощью программ Office. Это означает, что, как предлагалось в других ответах, вы обычно можете использовать альтернативу Office для доступа и редактирования файла.

Однако, если вам просто нужен доступ к коду, вы можете использовать такой инструмент, как oledump.py , для извлечения кода макроса. Это полезно для анализа вредоносных программ, а также для получения большей части кода из файла, чтобы вам не пришлось начинать с нуля, если вы забудете пароль.

Кроме того, многие файлы Excel динамически устанавливают пароль при открытии файла. Это означает, что если вы можете прочитать код, вы обычно можете найти пароль в открытом тексте или расшифровать его.

oledump.pyПримеры:

Перечислите все «потоки» (встроенные двоичные файлы или файлы кода) в офисном документе:

      python oledump.py -v yourExcelFile.xlsm

Выход:

      A: xl/vbaProject.bin
 A1:      2000 'PROJECT'
 A2:      1500 'PROJECTwm'
 A3: M    1224 'VBA/Module1'
 A4: M   18694 'VBA/Module2'
 A5: M   11877 'VBA/Module3'
...

Потоки с Mрядом с ними макросы, представляющие собой незашифрованный код VBA

Извлечь поток

      python oledump.py -s A3 -v yourExcelFile.xlsm > Module1.vba

Это выведет код, содержащийся в A3поток в Module1.vba.

Я обычно комбинирую это с циклом для извлечения всех файлов в папку. Этот быстрый скрипт PowerShell извлечет все потоки из большинства файлов:

      New-Item -ItemType Directory "Output"

# just hardcode the highest stream outputted by oledump.py -v
$max = 5 
for ($i = 1; $i -le $max; $i++) {
    python oledump.py -s "A$i" -v yourExcelFile.xlsm > ".\Output\A$i"
}

Обратите внимание, что при этом будут извлекаться только удобочитаемые файлы.

Answer 20

Мой инструмент, VbaDiff, считывает VBA непосредственно из файла, поэтому вы можете использовать его для восстановления защищенного кода VBA из большинства офисных документов без использования шестнадцатеричного редактора.

Answer 21

Защита представляет собой простое сравнение текста в Excel. Загрузите Excel в ваш любимый отладчик ( Ollydbg - мой инструмент выбора), найдите код, который выполняет сравнение, и исправьте его, чтобы всегда возвращать true, это должно позволить вам получить доступ к макросам.

Answer 22

Для 64-разрядной версии Excel 2016 на компьютере с Windows 10 я использовал шестнадцатеричный редактор, чтобы иметь возможность изменить пароль защищенной xla (не проверял это ни для каких других расширений).Совет: создайте резервную копию, прежде чем сделать это.

Шаги, которые я предпринял:

1. Откройте VBA в шестнадцатеричном редакторе (например, XVI)
2. Поиск по этому DPB
3. Измените DPB на что-то другое, например, DPX
4. Сохрани это!
5. Снова откройте.xla, появится сообщение об ошибке, просто продолжайте.
6. Теперь вы можете изменить пароль.xla, открыв свойства и перейдя на вкладку пароля.

Я надеюсь, что это помогло некоторым из вас!

Answer 23

Если вы работаете в Java ты можешь попробовать VBAMacroExtractor, После извлечения сценариев VBA из .xlsm Я нашел там пароль в текстовом виде.

Answer 24

Расширение вашего файла Excel изменилось на xml. И откройте его в блокноте. текст пароля найти в файле XML.

Вы видите как ниже линии;

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

(Извините за мой плохой английский)

Answer 25

Один простой способ удалить пароль проекта VBA — сделать следующее:

1. Конвертировать xlsm файл в zip
2. откройте внутри файл VBAProject.bin (я предпочитаю использовать Notepad++ (https://notepad-plus-plus.org/downloads/)
3. Поиск поля DPB
4. Замените его на DPx
5. Сохранить файл
6. преобразовать zip-файл в xlsm
7. открыть эксель файл
8. Нажмите «Да», если вы получите окно сообщения
9. установить новый пароль для свойств проекта VBA
10. закройте и снова откройте файл
11. введите новый пароль, чтобы снять защиту