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

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

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

Сводка шагов:

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

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

Полные инструкции с пошаговым видео, которое я сделал «назад, когда» включены здесь YouTube .

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

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

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

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

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

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

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

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

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

6. FIRST BACKUP файл excel, для которого вы не знаете пароль VBA, затем откройте его с помощью шестнадцатеричного редактора и вставьте указанные выше скопированные строки из фиктивного файла.
7. Сохранить файл excel и выйти.
8. Теперь откройте файл excel, который вам нужен, чтобы увидеть код VBA. Пароль для кода VBA будет просто 1234 (как в примере, который я показываю здесь ).

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

EDIT Feb 2015: для другого метода, который выглядит очень многообещающим, посмотрите на этот новый ответ на Đức Thanh Nguyễn.

изменить расширение вашего файла excel на xml. И откройте его в блокноте.

вы видите, как показано ниже,

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

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

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

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

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

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

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

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

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

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

Я построил фантастический ответ Đức Thanh Nguyễn, чтобы этот метод работал с 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
   

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

Я попробовал некоторые из вышеперечисленных решений, и ни один из них не работает для меня (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

Для типа файла .xlsm или .dotm вам нужно сделать это несколько иначе.

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

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

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

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