Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как изменить текст модулей VisualBasic в нескольких сотнях файлов
 
#1
10.09.2012 14:57:46
Уважаемые коллеги!  
 
Прошу помощи в следующей проблеме. Имеется несколько сотен файлов Excel'03, которые разложены по разным папкам. Это результат работы нескольких людей над огромным количеством проектов (не IT) более чем за год. В каждом из этих файлов есть код на VisualBasic, который для нас стал "вредоносным".    
 
Подскажите, пожалуйста, как можно не открывая все файлы закомментировать или отредактировать несколько строк кода. Насколько я понимаю, для этого может подойти VBScript. Сам я ни разу с этим не сталкивался, и если приведёте пример как найти все файлы с определёнными именами и изменить код в них я буду благодарен.
 
 
 
#2
10.09.2012 15:02:46
Не открывая не получится.  
Что за "вредоносный" код?
 
 
 
#3
10.09.2012 15:43:55
Я потому и заключил в кавычки, что это код-козявка, которую вставил исполнитель в исходный файл-шаблон.    
Там вызов трех процедур на открытии книги. В процедурах происходит сравнение текущей даты с неким заложенным значением. Вредоносность кода состоит в том, что он удаляет несколько листов в книге.  
Открывать файл не проблема, можно переставить системную дату.  
Нужно закомментировать вызовы этих процедур и поправить текст кода в ещё одной точке.
 
 
 
#4
10.09.2012 16:33:03
А покажите пример такого файла.  
 
И какая у вас версия Excel?  
Если 2007 и новее - то проблема удаления всех макросов решается просто.  
 
PS: Обычно такой код ставят, чтобы разработчику защититься от неоплаты разработанной им программы.  
 
Поэтому с кодом поможем, только когда убедимся, что это не защита разработчика  
(вдруг вы заказали программу, и не оплатили её)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
10.09.2012 18:51:20
В наличии рабочие машины с 2007 и 2010 офисом.  
 
Это не заказная работа, а результат планомерной работы коллектива. Исполнитель-программист на момент реализации проекта состоял в штате компании на постоянной основе. После введения в эксплуатацию данного проекта ему была поставлена новая задача и он более 5-ти месяцев работал в другом направлении. Но оказался очень своеобразной личностью. Мы расстались, а тут появились такие непасхальные яйца.  
 
Могу ли я привести только код-вставку? Или только листинг макросов? Мне очень интересно как вы собираетесь оценивать что мы заказывали и как оплатили?
 
 
 
#6
10.09.2012 18:58:10
Tormozz, вполне допускаю что "программист" оказался очень своеобразным, но не факт что и Вы были все время белые и пушистые...:(  
Для справки, формат xlsx не поддерживает макросы.
 
 
 
#7
10.09.2012 19:06:43
{quote}{login=Tormozz}{date=10.09.2012 06:51}{thema=}{post}Мне очень интересно как вы собираетесь оценивать что мы заказывали и как оплатили?{/post}{/quote}У нас длинные руки.
 
 
 
#8
10.09.2012 19:17:53
Не знаю, ребят. ИМХО форум может выступить в роли третейского судьи только в том случае, если один из форумчан является участником спора и может ответить на претензию. А так я могу и Майкрософт огульно обвинить в неправильном деловом поведении.  
>> Исполнитель-программист на момент реализации проекта состоял в штате компании на постоянной основе  
С ним и надо решать. Мало ли как там все было... Поддерживаю Igor67.
Я сам - дурнее всякого примера! ...
 
 
 
#9
10.09.2012 20:56:08
{quote}{login=KukLP}{date=10.09.2012 07:17}{thema=}{post}  
>> Исполнитель-программист на момент реализации проекта состоял в штате компании на постоянной основе  
С ним и надо решать. Мало ли как там все было... Поддерживаю Igor67.{/post}{/quote}  
C ним мне мне ничего решать не надо, т.к. это его принимали для передачи части моих функций, а не меня поставили на его место. У него был полный карт-бланш. Результатом были довольны все. С моей точки зрения (а я знаю очень многое в компании, хотя являюсь таким же наемным рабочим) выглядит это как "закладка" для шантажа. И я не просил здесь никого помочь мне найти "вредный код". Я уже нашел все, что мне нужно до обращения сюда. Осталось только найти способ решить как устранить данную проблему в нескольких сотнях файлов. Буду искать.  
 
Надеялся, что найду здесь помощь специалистов по VBScript. Ошибся с выбором легенды. Что ж каждый учится на ошибках...
 
 
 
#10
10.09.2012 21:06:16
Ошибся/не ошибся - Вам решать, но как Вам можно помочь, не видя файла?
 
 
 
#11
10.09.2012 21:12:08
Тут есть всё:  http://www.msoffice.nm.ru/faq/macros.htm Изучайте.
 
 
 
#12
10.09.2012 21:18:23
Оттуда:  
Для того, чтобы заменить одну строку программы на другую, достаточно использовать следующий пример:    
ActiveWorkbook.VBProject.VBComponents(1).CodeModule.ReplaceLine 1, "Private Sub Workbook_Activate()"  
В данном примере предполагается, что замена будет осуществляться в модуле с индексом(номером) один активной рабочей книги, где первая строка, которая и подлежит замене, содержит имя события, например, Private Sub Workbook_Open()
 
 
 
#13
11.09.2012 12:26:34
Спасибо, большое за советы.  
 
А по поводу обхода папок и отбора файлов на что обратить внимание?  
 
К сожалению реального времени крайне мало. Завтра меня госпитализируют с воспалением легких.  
 
Если еще найдутся желающие, я присоединил файл. Там закомментированы вызовы в Workbook.Open, ну и сами процедуры закомментированы.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#14
11.09.2012 12:27:44
Прошу прощения за размер
 
 
 
#15
11.09.2012 13:27:50
Файл утоптал.
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...