Запомнить данные обновляемой таблицы

[EducatedFool]

И заморочка с сертификатами

Что ещё за сертификаты? Не надо с ними бороться - они Вам вряд ли понадобятся.Не обращайте на них внимания.

чтобы этот макрос при определенных условиях сам запускался

При каких условиях?
В модуле книги можно указать, при каких событиях запускать макрос:

Private Sub Workbook_Open()
    ' срабатывает при открытии файла
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' срабатывает при активации листа
End Sub

И т.д. и т.п.

Если надо архивировать всю книгу - примеры кода можно посмотреть здесь:
http://www.programmersforum.ru/showp...90&postcount=2

Если только диапазон ячеек, или лист, - то здесь:
http://www.programmersforum.ru/showp...63&postcount=5

Можете выложить получившийся код - подправим под Ваши нужды.

[hamlook]

Сообщение от EducatedFool

Что ещё за сертификаты? Не надо с ними бороться - они Вам вряд ли понадобятся.Не обращайте на них внимания.

Что то про цифровую подпись (из серии про безопасность). Или можно ставить смело низкий уровень (в 2003-м)?

Сообщение от EducatedFool

При каких условиях?

Мне надо по аналогии с фунцией ЕСЛИ.
ЕСЛИ в ячейке определенное значение, то пуск макроса

[EducatedFool]

ЕСЛИ в ячейке определенное значение, то пуск макроса

Зависит от того, как изменяется это значение.
Если автоматически (в ячейке стоит формула), то так:

Private Sub Worksheet_Calculate()
    if [e2]>5 then Макрос1
End Sub

http://www.programmersforum.ru/showthread.php?t=39616
http://www.programmersforum.ru/showthread.php?t=35747


Если изменяете содержимое ячейки вручную, то так:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [e2].Address Then  if [e2]>5 then Макрос1
End Sub

http://www.programmersforum.ru/showthread.php?t=49237
http://www.programmersforum.ru/showthread.php?t=33393

В обоих примерах Макрос1 - название запускаемого макроса.
Условие запуска - значение ячейки e2 > 5

[hamlook]

Большое спасибо.
Буду разбиратся что к чему.

[hamlook]

Сообщение от EducatedFool

Зависит от того, как изменяется это значение.
Если автоматически (в ячейке стоит формула), то так:

Private Sub Worksheet_Calculate()
    if [e2]>5 then Макрос1
End Sub

У меня с этим кодом макрос зацикливается. Только у меня условие [e2]=5. Вроде все делает правильно, но в конце не останавливается и начинает заново. И так пока не зависнет или не выдаст ошибку.
И еще вопросик. У меня два макроса на листе. Могу я сделать так?
Private Sub Worksheet_Calculate()
if [e2]=5 then Макрос1
if [f2]=5 then Макрос2
End Sub

[EducatedFool]

У меня с этим кодом макрос зацикливается

Это из-за того, что макрос изменяет значения ячеек, от которых зависит значение ячейки e2.

Попробуйте использовать такую конструкцию:

Sub Макрос1()
    Application.EnableEvents = False    ' отключаем обработку событий листа и книги
    Application.Calculation = xlCalculationManual    ' отключаем пересчёт формул
    On Error Resume Next
    
    ' сюда пишем основной код макроса
    
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

У меня два макроса на листе. Могу я сделать так?

Да, конечно.
Но не забывайте про Application.EnableEvents = False и Application.Calculation = xlCalculationManual

[hamlook]

Спасибо. Попробую.

[hamlook]

Отлично! Все получилось!!!

Сообщение от EducatedFool

Это из-за того, что макрос изменяет значения ячеек, от которых зависит значение ячейки e2.

Макрос никак не связан с е2. Но на эту ячейку влияет переменная фунция (Сегодня и Час). Может поэтому появлялась цикличность.

Огромнейшее СПАСИБО!!!