Как снять защиту пароль на vba проекте в excel
Обновлено: 02.07.2024
Вы можете попробовать этот прямой подход VBA , который не требует редактирования HEX. Он будет работать для любых файлов (* .xls, * .xlsm, * .xlam . ).
Протестировано и работает на
Excel 2007 Excel 2010 Excel 2013 - 32-разрядная версия. Excel 2016 - 32-разрядная версия.
, как это работает
. Я постараюсь объяснить, как это работает - пожалуйста извините мой английский.
- VBE вызовет системную функцию для создания диалогового окна пароля.
- Если пользователь вводит правильный пароль и нажимает OK, эта функция возвращает 1. Если пользователь вводит неверный пароль или нажимает Отмена, эта функция возвращает 0.
- После закрытия диалогового окна VBE проверяет возвращаемое значение системной функции
- , если это значение равно 1, VBE «подумает», что пароль прав, поэтому будет заблокирован проект VBA.
- Приведенный ниже код заменяет память исходной функции, используемой для отображения диалогового окна пароля с пользовательской функцией, которая всегда будет возвращать 1 при вызове.
- Откройте файл (ы), содержащий ваши заблокированные проекты VBA
- Создайте новый файл xlsm и сохраните этот код в модуле 1 code credited to Siwtom (nick name), a Vietnamese developer
- Вставьте этот код в Module2 и запустите его
- Вернитесь к своим проектам VBA и наслаждайтесь .
Стоит отметить, что если у вас есть файл Excel 2007 (xlsm), вы можете просто сохранить его как файл Excel 2003 (xls) и использовать методы, изложенные в других ответах.
Да, ты можешь сделать это. Я делал это много раз. Если на листе есть что-то, что необходимо и что не передано в более старую версию, я делаю это: 1. конвертировать .xlsm в .xls 2. расколоть код .xls 3. конвертировать .xlsm в .xlsx 4. Поместить код из модулей в .xls в .xlsx и сохранить его как .xlsm – ZygD 1 October 2015 в 18:45 Он работает после преобразования xlsm в xls, как в ответе. – Purus 3 February 2017 в 08:08Документы 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 ). Шаг за шагом:
- Создайте новый простой файл excel.
- В части VBA установите простой пароль (скажем - 1234).
- Сохранить файл и выйти. Затем проверьте размер файла - см. . Stewbob's gotcha
- Откройте файл, который вы только что создали, с помощью шестнадцатеричного редактора.
- Скопируйте строки, начинающиеся со следующих клавиш:
- FIRST BACKUP файл excel, для которого вы не знаете пароль VBA, затем откройте его с помощью шестнадцатеричного редактора и вставьте указанные выше скопированные строки из фиктивного файла.
- Сохранить файл excel и выйти.
- Теперь откройте файл excel, который вам нужен, чтобы увидеть код VBA. Пароль для кода VBA будет просто 1234 (как в примере, который я показываю здесь ).
Если вам нужно работать с Excel 2007 или 2010, есть другие ответы ниже, которые могут помочь, особенно это: 1 , 2 , 3 .
EDIT Feb 2015: для другого метода, который выглядит очень многообещающим, посмотрите на этот новый ответ на Đức Thanh Nguyễn.
Что делать, если нет строк, начинающихся с CMG = . – systemovich 2 September 2009 в 14:03 В пустом файле excel или в заблокированном? Проверьте размер файла пустого файла. Если его заблокированный файл, убедитесь, что ваша резервная копия в безопасности, а затем попробуйте изменить только две другие строки. Вы уверены, что это зашифрованный файл? – Colin Pickard 2 September 2009 в 14:43 В пустом файле. Остальные две строки тоже не отображаются. Это также работает в Excel 2007? Я использовал HEdit. – systemovich 2 September 2009 в 14:51 Защита паролем Excel 2007 (и формат файла) радикально отличается от Excel 2003. Я включил некоторые особенности в мой ответ ниже. На мой взгляд, опция защиты паролем в файле Excel 2007 впервые в истории Microsoft Office позволяет создать безопасный файл. – Stewbob 10 September 2010 в 18:42изменить расширение вашего файла excel на xml. И откройте его в блокноте.
вы видите, как показано ниже,
(извините за мой плохой английский)
Можете ли вы объяснить, как ваш ответ лучше, чем те, которые уже были предоставлены? – Noel Widmer 5 June 2017 в 11:09 у моего решения нет кода. поэтому очень компактное решение, кроме. – Developer33 6 June 2017 в 11:32Для 64-разрядной версии Excel 2016 на машине с Windows 10 я использовал шестнадцатеричный редактор, чтобы иметь возможность изменять пароль защищенной xla (не проверял это для каких-либо других расширений). Совет: создайте резервную копию, прежде чем вы это сделаете.
Шаги, которые я сделал:
Надеюсь, это помогло некоторым из вас!
У меня была аналогичная проблема некоторое время назад, и я обнаружил, что Excel и Calc не понимают шифрование друг друга и поэтому допускают прямой доступ ко всему.
Это было давно, поэтому, если бы это было не просто случайность с моей стороны, она также могла быть исправлена.
Если вы работаете в Java , вы можете попробовать VBAMacroExtractor . После извлечения скриптов VBA из .xlsm я нашел там пароль в открытом тексте.
Я построил фантастический ответ Đức Thanh Nguyễn, чтобы этот метод работал с 64-разрядными версиями Excel. Я запускаю 64-разрядную версию Excel 2010 в 64-разрядной Windows 7.
- Откройте файл (ы), содержащий ваши заблокированные проекты VBA.
- Создайте новый xlsm файл и сохранить этот код в Module1
- Вставить этот код в Module2 и запустить его
ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ Это сработало для меня, и я зарегистрировал его здесь в надежде, что это поможет кому-то. Я не полностью его протестировал . Перед продолжением этой операции обязательно сохраните все открытые файлы.
Отлично работает, спасибо! ;) Для других, убедитесь, что вы не читаете слишком быстро и пропустите шаг «и запустите его», lol. : P (у меня еще не было моего кофе, так что дайте мне перерыв lol) – James Wilkins 26 April 2016 в 17:16 Позор - но это приводит к сбою в работе 64-битного файла Excel 2016, когда я его пытаюсь. – GodEater 20 August 2016 в 14:34 Это приводит к сбою моего 64-разрядного 64-разрядного Excel. :-( – Maxime 10 January 2017 в 21:26Я попробовал некоторые из вышеперечисленных решений, и ни один из них не работает для меня (excel 2007 xlsm file). Затем я нашел другое решение, которое даже извлекает пароль, а не просто его взломать.
Вставьте этот код в модуль, запустите его и дайте ему некоторое время. Он восстановит ваш пароль с помощью грубой силы.
Ницца! Я думаю, у вас есть один downvote, потому что ваше решение разблокирует рабочий лист, а не модуль VBA. Тем не менее я счел это полезным - так спасибо! – PBD10017 16 April 2016 в 18:05 Это правильный ответ на неправильный вопрос. – brettdj 8 May 2016 в 00:12 У меня есть это моя личная книга. Авторы цитировали Боба Маккормика в качестве оригинального автора, позже модифицированного Норманном Харкером и Дж. МакГимпси 2002 года. – Charles Byrne 18 April 2018 в 19:53Для типа файла .xlsm или .dotm вам нужно сделать это несколько иначе.
Работает в Excel 2016, Windows 10 64bit. (файлы xlsm) – LimaNightHawk 11 October 2016 в 13:16 Работала в Word 2016, Windows 10 64bit (dotm-файлы) – NBajanca 8 September 2017 в 13:11 Отличное решение, работало для меня в Excel 2013 64 бит. Вы можете пропустить изменение расширений файлов до .zip , если у вас установлен 7-Zip . В этом случае вы можете просто щелкнуть правой кнопкой мыши по файлу .xlsm и выбрать "7-Zip - & gt; Открыть архив & quot; – nkatsar 20 June 2018 в 09:31Существует другое (несколько проще) решение без проблем с размером. Сегодня я использовал этот подход (в файле XLS 2003 года, используя Excel 2007) и был успешным.
- Резервное копирование файла xls
- Откройте файл в редакторе HEX и найдите часть DPB=.
- Измените строку DPB=. на DPx=.
- Откройте файл xls в Excel
- Откройте редактор VBA (ALT + F11)
- magic: Excel обнаруживает недействительный ключ (DPx) и спрашивает, хотите ли вы продолжить загрузку проекта (в основном игнорируя защиту)
- Вы сможете перезаписать пароль, поэтому измените его на что-то, что вы можете запомнить
- Сохраните файл xls *
- Закройте и снова откройте документ и примените магию VBA!
Том. Сначала я сделал ошибку школьника, так как я не наблюдал размер байта, и вместо этого я скопировал и вставил из «CMG», настроенного на последующую запись. Это два разных размера текста между этими двумя файлами, и я потерял проект VBA так же, как предупреждал Stewbob.
Используя HxD, отслеживается счетчик, сколько файлов вы выбираете. Скопируйте, начиная с CMG, до тех пор, пока счетчик не прочитает 8F (hex для 143), а также при вставке в заблокированный файл. Я закончил с удвоенным количеством «. » в конце пасты, которое выглядело как-то странно и почти неестественно, но это сработало.
Я не знаю, если это имеет решающее значение, но я убедился, что я закрыл как шестнадцатеричный редактор, так и отлично, прежде чем снова открыть файл в Excel. Затем мне пришлось пройти через меню, чтобы открыть редактор VB, в свойства VBProject и ввести новый пароль для разблокировки кода.
Надеюсь, это поможет.
Если файл является допустимым zip-файлом (первые несколько байтов 50 4B - используются в форматах, таких как .xlsm ), затем распакуйте файл и найдите подфайл xl/vbaProject.bin . Это файл CFB, как файлы .xls . Следуйте инструкциям для формата XLS (применяется к подфайлу), а затем просто застегивайте содержимое.
пустым пространством. Это устраняет проблемы с размером контейнера CFB.
Если ваш блок CMG="XXXX"\r\nDPB="XXXXX"\r\nGC="XXXXXX" в вашем файле «известного пароля» короче существующего блока в файле «неизвестного пароля», введите ваши шестнадцатеричные строки с завершающими нулями, чтобы достичь нужной длины.
в файле неизвестного пароля, для сохранения длины файла следует установить значение
У меня также была работа с файлами формата .XLA (97/2003) в офисе 2007.
Это работает, но, как я недавно обнаружил (прокомментировал выше), вы также можете просто добавить нулевые символы после окончательной закрывающей цитаты в GC = & quot; . & quot; до тех пор, пока вы не достигнете той же длины. – tobriand 20 July 2013 в 12:21У Колина Пикарда есть отличный ответ, но с этим нужно «следить». Есть примеры (я еще не выяснил причину), где общая длина записи «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 и просмотреть содержимое файла.
Большинство наверняка знает как установить/снять пароль с VBA проекта вручную:
- Tools-VBAProject Properties-вкладка Protection;
- для защиты устанавливается галочка "Lock project for viewing"; для разблокировки - снимается;
- вписывается/удаляется сам пароль в полях Password и Confirm password.
Предположу, что не очень многим может понадобиться снимать пароль с проекта VBA средствами самого VBA. Но все же данная тема имеет спрос, как я смог убедиться, общаясь на форумах. Прежде всего это может пригодиться тем, кто создает свои приложения на VBA и периодически нужно вносить изменения в уже созданные проекты(например копирование модулей и кодов из одного проекта в другой). Сразу оговорюсь: я не рассматриваю ситуации, когда вам неизвестен пароль к проекту. Предполагается, что вы знаете пароль и можете снять его вручную.
Я лично знаю два способа снять пароль программно: через метод SendKeys и использовании функций API. Т.к. второй способ довольно громоздкий и сложный для понимания - я в данной статье опишу лишь первый способ. Он не содежит каких-либо изысков и довольно прост.
Sub Unprotect_VBA() Dim objVBProject As Object, objVBComponent As Object, objWindow As Object Workbooks.Open "C:\1.xls" Set objVBProject = ActiveWorkbook.VBProject 'просматриваем все окна проекта в поисках окна снятия защиты For Each objWindow In objVBProject.VBE.Windows ' Type = 6 - это нужное нам окно If objWindow.Type = 6 Then objWindow.Visible = True objWindow.SetFocus: Exit For End If Next 'вводим пароль и подтверждаем ввод SendKeys "
", True: SendKeys "", True 'здесь Ваш код по внесению изменений в проект Set objVBProject = Nothing: Set objVBComponent = Nothing: Set objWindow = Nothing ActiveWorkbook.Close True End Sub
Код сначала открывает необходимую книгу, а затем снимает пароль с проекта.
"C:\1.xls" - полный путь к книге, включая расширение файла.
" - пароль к проекту. Тильды нужны, но они не являются частью кода. Т.е. сам код это - 1234.
Способ, как видите, действительно очень прост, но это порождает и недостатки. Главный недостаток: снятие пароля данным методом весьма нестабильно и иногда может не срабатывать. Так же во время работы данного кода крайне нежелательно пользоваться мышью и клавиатурой. Точнее даже не нежелательно, а просто нельзя, если вам необходим положительный результат.
Также см.:
[[Копирование модулей и форм из одной книги в другую]]
[[Как удалить макросы в книге?]]
[[Как добавить код процедуры программно, скопировать модуль]]
[[Защита листов/снятие защиты]]
Поставили пароль на VBAProject и забыли его? Есть файл с макросами, хотите в них разобраться, но проект защищён? Не беда, сломаем за 5 минут.
Пошаговая инструкция:
1. Закройте файл, сделайте его копию на случай Fuck Up.
2. Измените расширение файла .xlsm на .zip (пкм Переименовать или F2):
3. Откройте zip файл, найдите папку xl и в ней файл vbaProject.bin:
4. Перетащите файл vbaProject.bin из архива:
5. Откройте его с помощью Notepad++ :
6. При помощи поиска (Ctrl+F) найдите строку DPB и замените в ней букву B на любую другую, сохраните и закройте файл:
7. Перенесите обновленный файл vbaProject.bin обратно в архив, закройте архив.
8. Измените расширение файла .zip в .xlsm.
9. Откройте файл, в появившемся диалоговом окне нажмите Да:
12. На вкладке Protection уберите галку Lock project for viewing и сохраните файл:
Не сработало? Поможет бесплатная надстройка MACROTools VBA Excel, а надстройка EXCELTools автоматизирует ваши рутинные и монотонные операции в MS Excel.
При желании проект можно поддержать рублем.
Хотите научиться самостоятельно писать макросы и разбираться в VBA, но не знаете с чего начать? Лучший канал на YouTube по этой теме:
MS, Libreoffice & Google docs
466 постов 12.8K подписчика
Правила сообщества
2. Публиковать посты соответствующие тематике сообщества
3. Проявлять уважение к пользователям
4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.
По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях
Важно - сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.
Утверждения вроде "пост - отстой", это оскорбление автора и будет наказываться баном.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Long
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim kennwort As String
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
kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
For n = 32 To 126
ActiveSheet.Unprotect kennwort & Chr(n)
MsgBox "Done in " & Format(Timer - t, "0.0 sec")
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
А как вот такую защиту снять?
/он тоже в вба висит как макрос. Эксель версий 2000-2005 А так сатану случайно не призовешь? А то очково как-то
Мда. открыл ящик Пандоры ))) болтались интересные программы, теперь они не только интересные но и рабочие )
Сам способ кстати интересный. Но я редактировал этот файл с помощью 16ти-ричного редактора HEX+ вроде, и менял другие символы. Делал в декабре 19, надо освежитьа есть способ с винрар архива пароль снять?
С нуля за 5 часов можно научиться всему.
А можно пароль снять, которым лист защищен от изменений?
там вроде стойкое шифрование в последних версиях, Elcomsoft Advanced pasword recovery может днями ковырять, если пароль сложный и длинный. если например из одних цифр - то за полчаса или час
Пару раз пробовал. получалось даже с вордовским запароленым файлом
У меня работает, без надстроек, чтобы лишнего не ставить, так конечно от ситуации зависит С помощью указанной в посте надстройки можно вскрыть защиту и сделать viewable надстройку Николая Павлова PLEX. Потом удалить в нем строчку, сравнивающую дату установки надстройки с текущей датой, и пользоваться этой надстройкой без покупки.
Консолидация Данных в Excel Уроки Excel
В этом видео показана консолидация данных в эксель.
Ответ на пост «Как и кто может оценить квалификацию руководителя?»
На самом деле компетенции рядового руководителя (завмага, прораба или мастера) примерно таковы.
1. Ты должен понимать какой результат требуется от работы твоего подразделения и как его можно получить. Уметь составлять штатное расписание и должностные обязанности с учётом этого и убеждать руководство в нужности именно такового.
2. Ты должен определять годится ли человек на работу на которую он претендует. И возможно годится ли он для каких-нибудь смежных функций. И не забыть потом проконтролировать.
3. Уметь распределить работу среди подчинённых наилучшим образом. С учётом способностей. С учётом того, что люди не могут работать на максимуме долгое время и напрягать их по полной можно только изредка. Не забывая про отпуска, больничные, внезапные увольнения (в том числе по причине прогулов) и внезапные смерти.
4. Уметь грамотно и доходчиво ставить задачи и объяснять местные нюансы работы людям у которых проблемы с пониманием фраз длиннее трёх слов и лексикон почерпнутый из российских сериалов.
5. Уметь оценивать старание подчинённых и, соответственно, раздавать волшебные пендели и сладкие плюшки. Также уметь выбивать из руководства повышение зарплат для подчинённых хотя бы для компенсации инфляции.
6. Уметь оценивать качество работы подчинённых. И периодически контролировать их работу. И правильно понимать когда тот или иной спец хочет "сделать как лучше" и действительно в этом лучше разбирается, а когда он просто не хочет работать.
7. Без жалости и рефлексий увольнять людей, которые не способны или не хотят справляться с работой. При этом убедить их увольняться самих.
8. Уметь грамотно отчитываться перед вышестоящим руководством о работе вверенного подразделения. А так же писать грамотные и убедительные докладные и служебные записки в случае возникновения проблем решение которых выходит за пределы полномочий руководителя.
9. Уметь контролировать снабжение подразделения необходимыми для работы материалами, инструментами и техникой. Составлять заявки на снабжение и работать с техническими заданиями.
Я бы с большим интересом посмотрел на тот цирк где будут это "сертифицировать". Поэтому когда откроете пришлите мне пожалуйста контрамарку в первый ряд.
Легла в направлении мечты => Пост №2
Так же мне посоветовали посмотреть конференции DevGamm. Как раз хорошо совпало, что такая конференция проходила онлайн с 17-19 ноября. Если кому интересно, у них имеется так же ютуб канал, где рассказывают про игры. При чем здесь имеется все: и про арт, и про маркетинг и конечно про сами игры, слушала как разработчики представляют свои работы. Очень интересно!
По английскому языку, больше делаю упор на сайт inSpeak. Так как в комментах подсказали, что лучше делать упор на разговорную речь и понимание что тебе говорят английском языке. Так же начала слушать аудио книги на Английском, их можно скачать на сайте Lelang, очень прикольно. Можно скачать аудио книгу и pdf к ней.
По книгам, добавила в свой список “Грокаем алгоритмы”, думаю к ней смогу приступить как раз после ООП.
Полный список моей программы можно посмотреть в первом посте: Легла в направлении своей мечты
Из того, что тяжело: ни как не могу перейти на режим дня жаворонка, чтобы вставать пораньше и было больше времени на обучение, сейчас даже если и получается встать рано, то целый день ты сидишь вареный, это не хорошо.
Было очень интересно прочитать в комментариях истории у кого всё получилось, и они уже в разработке. Особенно что и после 30 можно попасть в геймдев. Спасибо всем, кто поддерживает. Те, кто считает, что у меня ничего не выйдет и я все брошу, тоже спасибо, вы очень мотивируете писать посты, а не бросать их.
Ответ на пост «Ответ на пост *разочарование '»
Вы молодец. Действительно. Сейчас расскажу, почему я так считаю:
Вспоминаю 92-93 годы. У отца на работе был рабочий компьютер. Выдали по должности, звание на тот момент не помню какое, кэпом был то ли третьего ранга, то ли второго. Камчатка, в\ч 90129. Он его мне домой тогда припер, типа разбирайся. Комп древний даже по тем меркам: 286 XT с монохромным CGA/Hercules с матричным принтером Epson FX-800. Читал со словарем мануал от принтера, настроил DIP микропереключателями русский язык на печать. Купил на свои заработанные деньги две дискеты 5`25 (по 100рублей, TDK, помню) - ходил по знакомым (в Петропавловске-Камчатском в то время 12 летнему пацану это было сложно), скопировал себе Basic и несколько игр. Взял в библиотеке книгу детскую по Бейсику, ели нашел.
Завел тетрадку, туда всё переписывал. До этого ходил на курсы в компьютерный клуб, изучил на Ямахах MSX язык Лого, так что опыт был.
Зашел как-то разговор с отцом, что у него сидят 10 или 12 тетенек-бухгалтеров и считают на калькуляторах и счетах нормы выдачи военнослужащим разных продуктов. Точно сейчас не помню, но смысл был такой: военная часть, на каждую единицу л\с определенная норма продуктов. На кораблях чуть по другому, на лодках тоже иначе. Частей военных нашем регионе было много, кораблей много, лодок хватало. Я написал программу, которая выводила на печать то, что эти тетеньки считали вручную. И за пару недель всё сделал. Отец отнес распечатки в бухгалтерию, те проверили и ОКАЗАЛОСЬ, что всё точно))
Не знаю уж как, но мне выплатили зарплату в 10000 рублей. Официально никак, но потом отец рассказывал, что тетки вроде сами передали мне. Сколько это точно не помню, но хлеб стоил на Камчатке около 50р, машину помыть стоило 100-200р, газету с программой ТВ я покупал в типографии за 4р, а продавал по 10р)) Ну и кроме этого у меня появился новый комп c цветным VGA монитором с принтером Epson FX-1000, который стоил как Жигули новые, но это совсем другая история.
Так вот. Отец этим меня реально мотивировал изучить комп, программирование, что потом мне в жизни очень пригодилось. Ведущим программистом Гугла я конечно не стал, но высшее образование в этой сфере получил, в начале создания российских интернет карт поучаствовал, а потом тяга к машинам взяла своё и ушел в чип-тюнинг (пишу программы для моторов) и корчестроительство. Я ему благодарен.
Макросы и надстройки существенно расширяют функционал пакета Microsoft Office путем добавления новых возможностей, автоматизации рутинных задач и т.д.
Эти дополнения могут быть защищены паролем с целью, например, запрета несанкционированных изменений
Однако случаются ситуации, когда необходимо внести изменения в код, а пароль неизвестен – забыт, потерян, ушел вместе с предыдущим сотрудником и прочее.
Рассмотрим как достаточно просто сбросить пароль в модуле VBA в таком случае. Для работы будет необходим Far менеджер , скачать с официального сайта можно по ссылке. Желательно сделать резервную копию файла.
Имеется файл с расширением .xlsm – надстройка Excel 2010, в нем макрос на VBA, защищенный паролем.
Вот так должно получится:
Запускаем FarManager , ищем наш файл, заходим внутрь архива по Enter , находим файл vbaProject.bin , нажимаем F4 . Видим что-то подобное:
Ищем строку с определением ключа DPB . По клавише F7 , вводим «DPB» и жмем Enter . Изменяем имя ключа на DPW.
Сохраняем файл по F2 , выходим по Esc . На вопрос о сохранении файла в архиве жмем Ok
Переименовываем файл обратно в .xlsm и открываем.
Подтверждаем загрузку проекта, не смотря на некорректный ключ (который мы сами и сделали некорректным):
Запускается VBA Editor и код макроса доступен для редактирования!
Чтобы убрать ругань при открытии проекта, нужно или совсем сбросить пароль или установить свой. Делается это через меню Tools – Project Properties .
В открывшемся окне перейти на закладку Protection .
Чтобы сбросить пароль, нужно убрать галочку из окна Lock project for viewing . Чтобы задать свой пароль, введите его и подтвердите в полях ниже это же окна.
Читайте также: