Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Программа написана на базе excel - нужно поправить (активировать)?
 
Есть программа rapidshop (создает сайт интеренет магазина) - она представляет собой excel файл с набором макрасов.    
http://www.rapidshop.org/rapidshop/rapidshoprus.zip  
Программа требует кода активации, на сколько я понимаю эта также макрос - так вот вопрос можно ли "поправить" код и как разрешить редактирование макросов?  
 
P. S.  
Не то что бы 5000 р. жалко - просто ум пытливый.
Вставка внешней картинки
 
Подскажите пожалуйста, есть ли возможность в excel вставлять внешнюю картинку, которая будет изменятся в зависимости от выбора?    
То есть ячейка A1=1 - отображать картинку из C:\1.jpg,    
       ячейка A1=2 - отображать картинку из C:\2.jpg.    
Без применения макрасов.
Вопрос по спискам - как создать такой как в примере
 
Прошу помощи в поиске ответа на вопросы:  
- как создать такой список (ячейка A1)  
- где хранится информация содержащаяся в списке  
- как ее менять в зависимости от входящих условий  
 (1 - данные со столбца Б, 2- данные со столбца В)
Запуск макроса при закрытии книги
 
Требуется запускать макрос при каждом закрытии книги.  
Как альтернатива при ее сохранении.  
Что и как необходимо сделать?  
(если можно алгоритм действий)  
 
Сам макрос:  
 
Sub Макрос6()  
'  
' Макрос6 Макрос  
' Макрос записан 23.08.2010 (Nikolay)  
'  
 
'  
   Sheets("Лист1").Select  
   Range("D70:I84").Select  
   Selection.Copy  
   Sheets("Архив").Select  
   Cells.Find(What:="666666", After:=ActiveCell, LookIn:=xlValues, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False).Activate  
   ActiveCell.Offset(0, 2).Range("A1").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Sheets("Объекты (2)").Select  
   ActiveCell.Range("A1:C1").Select  
End Sub
Страницы: 1
Наверх