[Кочетков Андрей]

Пришел чертеж от заказчика.
При открытии появляется окно, предупреждающее, что в чертеже есть VBA-макросы.
Полезный ли это макрос или вирус - я не знаю, поэтому сразу возникло жгучее желание удалить его (т.к. этот чертеж пойдет дальше и другие пользователи вполне могут нажать кнопку "Enable macro").
При попытке удаления появился запрос на ввод пароля.
Пароля я не знаю.


Вопрос: как удалить из чертежа запароленный макрос?


(Можно конечно скопировать объекты в чистый чертеж, но при этом может полететь форматирование, так что хотелось бы обойтись малой кровью).

[Кулик Алексей aka kpblc]

http://www.jtbworld.com/lisp/purger.htm
Точнее, это:

Код:

[Выделить все]

(defun DelACAD_VBA ()
  (dictremove (namedobjdict) "ACAD_VBA")
  (princ)
)

Попробуй...

[VVA]

Хотел предложить:
1. сохранить чертеж в dxf 2002 версии.
2. _-wblock со *
Но не уверен, что поможет

[Кочетков Андрей]

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] (defun DelACAD_VBA () (dictremove (namedobjdict) "ACAD_VBA") (princ) )

Этот код к сожалению не сработал.

Сообщение от VVA 1. сохранить чертеж в dxf 2002 версии. 2. _-wblock со *

Этот метод тоже не сработал

[ФСФ]

Можно попробовать сохранить файл как .dxf, затем открыть блокнотом и удалить кусок под заголовком VBA_PROJECT. Сохранить, потом открыть Автокадом.

[VVA]

>Кочетков Андрей
Удали секретную информацию и пришле мне по почте чертеж. Интересно поковыряться.
А что выдает

Код:

[Выделить все]

(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(NAMEDOBJDICT))))

Может проект хранится в словаре типа VBA_PROJECT?

[Кочетков Андрей]

Сообщение от VVA А что выдает Код: [Выделить все] (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(NAMEDOBJDICT))))

Код:

[Выделить все]

("ACAD_COLOR" "ACAD_GROUP" "ACAD_LAYOUT" "ACAD_MATERIAL" "ACAD_MLINESTYLE" 
"ACAD_PLOTSETTINGS" "ACAD_PLOTSTYLENAME" "ACAD_TABLESTYLE" "ACAD_VBA" 
"ACDBVARIABLEDICTIONARY")

Сообщение от ФСФ Можно попробовать сохранить файл как .dxf, затем открыть блокнотом и удалить кусок под заголовком VBA_PROJECT. Сохранить, потом открыть Автокадом.

Попробовал так сделать.
Запрос о макросе исчез, но когда я залез в Alt+F11, этот макрос там сидел и все равно просил пароль.

[ФСФ]

>Кочетков Андрей
Кусок под заголовком VBA_PROJECT должен быть довольно большим массивом буковок и заканчииваться строкой содержащей 0. может ты удалил только начало? А до открытия отредактированного файла .dxf макрос выгрузился из Автокада?

[Кочетков Андрей]

Сообщение от ФСФ >Кочетков Андрей Кусок под заголовком VBA_PROJECT должен быть довольно большим массивом буковок и заканчииваться строкой содержащей 0. может ты удалил только начало? А до открытия отредактированного файла .dxf макрос выгрузился из Автокада?

Макрос выгрузился точно, т.к. я перегрузил Автокад.
И секцию тоже вроде всю удалил.

[sergeytr]

интересно как ВСТАВИТь В чертеж макрос!?
куда его ... :roll:

[ssn]

подниму тему.
все же, как удалить макрос из файла.
я так понимаю надо согласиться с загрузкой макроса и потом зайти и физически удалить сами тексты макроса.... а вдруг макрос пакостит... можно обойтись без загрузки?
<...> Один вопрос - одна тема /kpblc/

[Кулик Алексей aka kpblc]

ssn, посмотри тему по очистке файлов. Да и у себя на сайте я публиковал вариант очистки от следов VBA.
P.S. Без файла тяжело что-либо подсказать.

[ssn]

будьте добры, дайте линк на свой сайт (на тему по этому вопросу)

[Кулик Алексей aka kpblc]

autolisp.ru
P.S. И меня один уже очень давно