Мне было предложено обновить некоторые макросы Excel 2003, но проекты VBA защищены паролем, и похоже, что отсутствует документация... никто не знает пароли.
Есть ли способ удалить или взломать пароль в проекте VBA?
Мне было предложено обновить некоторые макросы Excel 2003, но проекты VBA защищены паролем, и похоже, что отсутствует документация... никто не знает пароли.
Есть ли способ удалить или взломать пароль в проекте VBA?
Вы можете попробовать этот прямой подход VBA
, который не требует редактирования HEX. Это будет работать для любых файлов (*.xls, *.xlsm, *.xlam...).
Протестировано и работает на:
Excel 2007
Excel 2010
Excel 2013 - 32-разрядная версия
Excel 2016 - 32-разрядная версия
Ищете 64-битную версию? Смотрите этот ответ
Я постараюсь объяснить, как это работает, извините, пожалуйста, за мой английский.
Пожалуйста, сначала сделайте резервную копию ваших файлов!
Создайте новый файл 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
Вставьте этот код под вышеуказанным кодом в Module1 и запустите его
Sub unprotected()
If Hook Then
MsgBox "VBA Project is unprotected!", vbInformation, "*****"
End If
End Sub
Возвращайтесь к своим проектам VBA и наслаждайтесь.
Да, есть, пока вы используете таблицу формата .xls
(по умолчанию для Excel до 2003 года). Для Excel 2007 по умолчанию используется .xlsx
, который является довольно безопасным форматом, и этот метод не будет работать.
Как говорит Треб, это простое сравнение. Один из способов - просто поменять запись пароля в файле с помощью шестнадцатеричного редактора (см. Hex editors for Windows). Шаг за шагом:
Скопируйте строки, начинающиеся со следующих клавиш:
CMG=....
DPB=...
GC=...
FIRST BACKUP файл excel, для которого вы не знаете пароль VBA, затем откройте его с помощью шестнадцатеричного редактора и вставьте указанные выше скопированные строки из фиктивного файла.
Если вам нужно работать с Excel 2007 или 2010, есть некоторые другие ответы ниже, которые могут помочь, особенно эти: 1, 2, 3.
EDIT Февраль 2015: для другого метода, который выглядит очень многообещающим, посмотрите этот новый ответ на Đức Тхань Нгуен.
Существует другое (несколько проще) решение без проблем с размером. Сегодня я использовал этот подход (в файле XLS 2003 года, используя Excel 2007) и был успешным.
DPB=...
частьDPB=...
на DPx=...
* ПРИМЕЧАНИЕ. Убедитесь, что вы изменили пароль на новое значение, иначе при следующем открытии электронной таблицы Excel сообщит об ошибках ( "Неожиданная ошибка" ), а затем, когда вы получите доступ к списку модулей VBA, вы увидите имена исходных модулей, но при попытке открыть формы/код и т.д. Чтобы исправить это, вернитесь к свойствам проекта VBA и установите пароль для нового значения. Сохраните и повторно откройте документ Excel, и вы должны быть добрым!
Я построил на Đức Thanh Nguyễn фантастический ответ, чтобы этот метод работал с 64-разрядными версиями Excel. Я запускаю 64-разрядную версию Excel 2010 в 64-разрядной версии Windows 7.
Создайте новый файл 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
Вставьте этот код в Module2 и запустите его
Sub unprotected()
If Hook Then
MsgBox "VBA Project is unprotected!", vbInformation, "*****"
End If
End Sub
ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ Это сработало для меня, и я зарегистрировал его здесь, надеясь, что это поможет кому-то. Я не полностью его протестировал. Перед продолжением этой операции обязательно сохраните все открытые файлы.
Колин Пикард имеет отличный ответ, но с этим "один из них". Есть примеры (я еще не выяснил причину), где общая длина записи "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 и просмотреть содержимое файла.
Для типа файла .xlsm
или .dotm
вам нужно сделать это несколько иначе.
.xlsm
на .zip
.vbaProject.bin
и откройте его в Hex-редакторе (я использую HxD, его полностью свободный и легкий).DPB
и замените DPx
и сохраните файл.vbaProject.bin
этим новым в zip файле..xlsm
..xlsm
.Стоит отметить, что если у вас есть файл Excel 2007 (xlsm), вы можете просто сохранить его как файл Excel 2003 (xls) и использовать методы, изложенные в других ответах.
Вы пробовали просто открывать их в OpenOffice.org?
У меня возникла аналогичная проблема некоторое время назад и выяснилось, что Excel и Calc не понимают друг друга в шифровании и поэтому допускают прямой доступ ко всему.
Это было давно, поэтому, если бы это была не просто случайность с моей стороны, она также могла быть исправлена.
Для Excel 2007 вам необходимо изменить расширение файла на .zip В архиве есть подпапка xl, там вы найдете vbaProject.bin. Следуйте приведенному выше шагу с помощью vbaProject.bin, затем сохраните его в архиве. Измените свое расширение и вуаля! (что означает следующие шаги выше)
С моей стороны, это основано на превосходном ответе kaybee99, который основан на фантастическом ответе Тхана Нгуйена, чтобы этот метод мог работать как с версиями Office для x86, так и для amd64.
Обзор того, что изменилось, мы избегаем push/ret, который ограничен 32-битными адресами, и заменяем его на mov/jmp reg.
Проверено и работает на
Word/Excel 2016 - 32-битная версия.
Word/Excel 2016 - 64-битная версия.
как это устроено
Создайте новый файл того же типа, что и выше, и сохраните этот код в 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
Вставьте этот код в Module2 и запустите его
Sub unprotected()
If Hook Then
MsgBox "VBA Project is unprotected!", vbInformation, "*****"
End If
End Sub
В случае, если ваш блок
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) в офисе 2007.
Документы VBA Project Passwords on Access, Excel, Powerpoint или Word (версии 2007, 2010, 2013 or 2016
с расширениями .ACCDB.XLSM.XLTM.DOCM.DOTM.POTM.PPSM
) могут быть легко удалены.
Это просто вопрос изменения расширения имени файла на .ZIP
, разархивирование файла и использование любого базового Hex Editor (например, XVI32) для "разрыва" существующего пароля, который "смущает" Office, поэтому в следующий раз он запрашивает новый пароль, файл открывается.
.ZIP
.ZIP
и перейдите в папку XL
.vbaProject.bin
и откройте его с помощью Hex-редактораDPB
на DPX
..bin
обратно в zip, верните ему нормальное расширение и откройте файл, как обычно.VBA Project Properties
.Protection
" установите новый пароль.OK
, закройте файл, откройте его, нажмите ALT + F11.На этом этапе вы можете полностью удалить пароль, если захотите.
Полные инструкции с пошаговым видео, которые я сделал "назад, когда" находятся на YouTube здесь.
Это шокирует, что это решение уже давно существует, и Microsoft не исправила проблему.
Мораль этой истории?
Пакеты паролей Microsoft Office VBA не должны использоваться для обеспечения безопасности любой конфиденциальной информации. Если важна безопасность, используйте стороннее программное обеспечение для шифрования.
Колин Пикард в основном прав, но не путайте "пароль для открытия" защиты всего файла с помощью защиты паролем 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
Если файл является допустимым zip файлом (первые несколько байтов 50 4B
- используются в форматах типа .xlsm
), затем распакуйте файл и найдите подфайл xl/vbaProject.bin
. Это файл CFB, как файлы .xls
. Следуйте инструкциям для формата XLS (применяется к подфайлу), а затем просто запишите содержимое.
Для формата XLS вы можете использовать некоторые другие методы в этом сообщении. Я лично предпочитаю поиск блока DPB=
и замену текста
CMG="..."
DPB="..."
GC="..."
с пробелами. Это устраняет проблемы с размером контейнера CFB.
Я попробовал некоторые из вышеперечисленных решений, и ни один из них не работает для меня (excel 2007 xlsm file). Затем я нашел еще одно решение, которое даже извлекает пароль, а не только разорвать его.
Вставьте этот код в модуль, запустите его и дайте ему некоторое время. Он вернет ваш пароль грубой силой.
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 производит Advanced Office Password Breaker и Advanced Office Password Recovery продукты, которые могут применяться в этом случае, если документ был создан в Office 2007 или более ранней версии.
Том. Сначала я сделал ошибку школьника, так как я не наблюдал размер байта, и вместо этого я скопировал и вставил из "CMG", настроенного на последующую запись. Это два разных размера текста между этими двумя файлами, и я потерял проект VBA так же, как предупреждал Stewbob.
Используя HxD, отслеживается отслеживание количества файлов, которые вы выбираете. Скопируйте, начиная с CMG, до тех пор, пока счетчик не прочитает 8F (hex для 143), а также при вставке в заблокированный файл. Я закончил с удвоенным количеством "..." в конце пасты, которое выглядело как-то странно и почти неестественно, но это сработало.
Я не знаю, важно ли это, но я убедился, что я закрыл как шестнадцатеричный редактор, так и отлично, прежде чем снова открыть файл в Excel. Затем мне пришлось пройти через меню, чтобы открыть редактор VB, в свойства VBProject и ввести новый пароль для разблокировки кода.
Надеюсь, это поможет.
Мой инструмент VbaDiff, читает VBA непосредственно из файла, поэтому вы можете использовать его для восстановления защищенного кода VBA из большинства офисных документов не прибегая к шестнадцатеричному редактору.
Защита - это простое сравнение текста в Excel. Загрузите Excel в ваш любимый отладчик (Ollydbg, являющийся моим инструментом выбора), найдите код, который выполняет сравнение, и исправьте его, чтобы всегда возвращать true, это должно позволить вам получить доступ к макросам.
ваше расширение файла excel изменится на xml. И откройте его в блокноте. поиск текста в текстовом файле в формате xml.
вы видите строку ниже;
Sheets("Sheet1").Unprotect Password:="blabla"
(извините за мой плохой английский)
Для 64-разрядной версии Excel 2016 на машине с Windows 10 я использовал шестнадцатеричный редактор, чтобы иметь возможность изменять пароль защищенной xla (не тестировал это для каких-либо других расширений). Совет: создайте резервную копию, прежде чем делать это.
Сделанные мной шаги:
Надеюсь, это помогло некоторым из вас!
Если вы работаете в Java
, вы можете попробовать VBAMacroExtractor
. После извлечения сценариев VBA из .xlsm
я нашел там пароль в открытом тексте.