Developing.ru

Спасибо всем за участие и помощь!!!

ЗЫ. Отпишитесь пожалуйста если найдете какую-либо ошибку...

Еще одно маленькое допонение
Дело в том что пароль на открытие книги юзеру ничего не мешает поменять после запуска книги через exe файл. А тогда теряется всякий смысл в этом exe файле, ведь главная идея была, в том чтобы заставить пользователя запускать сей документ через exe. Он может просто зайти в параметры безопасности (Сервис/Параметры/Безопасность поменять пароль и сохранить книгу) и сделать свое дело. Поэтому можно сделать так чтобы пользователь не имел возможности менять пароль, т.е. менять то менял но при следующем открытии книги пароль должен опять появиться. Не знаю насколько правилен код но я сделал так:
В модуле эта книга

Private Sub Workbook_open()
ActiveWorkbook.Password = ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Password = "123"
ActiveWorkbook.Save
End Sub

Тем самым при открытии книги пароль стоит а после открытия нет.

seergy, не понятно, к чему этот файл
Если Вы хотели показать нам еще одну систему "взлома" пароля, то хотя бы попробовали проверить.
Работает этот код с такой скоростью, что пароль 111 я не дождался, надоело
Это скорее учебный пример, как могут работать программы подбора пароля, не более.

seergy, Не знаю, может у меня комп слишком медленный (хотя...) но пароль на защиту структуры книги в один символ "1" он искал довольно долгое время. Если учесть тот факт что специальные программы находят такие пароли мгновенно, то данный макрос к сожалению не выдерживает никакой критики. Но идея сама хорошая.

Использую его, когда забыл свой пароль. Долго, но проверено временем... Можете модифицировать...или ускорить. Вам виднее
С уважением...

&quot писал(а):Использую его, когда забыл свой пароль. Долго, но проверено временем... Можете модифицировать...или ускорить. Вам виднее
С уважением...

ИМХО лучше для этих целей использовать специальные программы, есть бесплатные аналоги, есть платные но и ключики можно безпроблем найти.

seergy,

Можете модифицировать...или ускорить

как ни модифицируй, а VBA по определению для этих целей не подходит. Как я говорил, это хороший пример работы алгоритма в VBA, не более.

Меня устраевает...

Днями по просьбе клиента за вечер переписал VBA код для шаблона MS WORD в код PowerBasic.
Оставил на уровне Word только обработку событий и вызов функций из DLL.
Естественно, то же самое можно сделать для EXCEL
Кстати, PowerBasic компилирует в нативный код а не p-команды. Правки VBA потребовались минимальные. А возможномти строковой обработки в PowerBasic значительно мощнее чем в
VB6/VBA.
Правда сам PowerBasic не бесплатен
Официальный сайт: [URL]http://www.powerbasic.com/[/URL]
Если интересно дам ссылки на другие рессурсы