Как запустить макрос при изменении другой книги Excel?

[Град]

Друзья, помогите!

Задача такая:
На сетевом диске лежит файл Excel (Условно назовём "БАЗА"). Существует другой файл (Условно назовём "Отчет").
Так вот, надо сделать так что бы при изменении "БАЗА", даже если он будет закрыт и просто его пересохранили, в "Отчет" заработал макрос. Допустим, пишет в ячейке А1 листа "Правка" фразу "файл был изменен"
Спасибо.

[knight]

Событие на запись перехватывать надо... Но это нужно чтобы у Вас и у того, кто будет его открывать в настройке Excel по умолчанию макросы стартовались...

[Град]

Тот файл даже открыаться не будет. он будет автоматически обновляться. Я пробовал сделать ссылку одного файла на другой (на определенную ячейку, которая стопудово изменится при обновлении) и через каждую минуту обновлять связи, но что то не получилось.
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("H1").Value = "1" Then
Workbook.UpdateLink Name:= _
"K:\Group\Sales\Аналитика\БАЗА.xls" , Type _
:=xlExcelLinks
Else
Range("A1").Value = Time
End If
End Sub

но дает ошибку. не пойму(

[IgorGO]

В файле отчет при старте формируем отчет из базы и записываем время последнего изменения базы. Потом с помощью application.OnTime через определенное время, сверяем время последнего сохранения базы с тем, что записали на старте. Если не совпадают... обновляем данные, перезаписываем время последнего сохранения базы. И снова онТайм...

[Град]

Спасибо! Щас попробую. думаю должно получиться

[IgorGO]

вот заготовочка:
дата последнего изменения базы записывается в ячейку(1,1). Необходимо заменить на реальную секретную ячейку и раскомментировать две строки, где это делается. В таком виде, как здесь записано, обновления будут происходить постоянно.
UpDateData - необходимо наполнить необходимым кодом.

Sub auto_open()
  UpDateData
'  Записываем в ячейку время последнего обновления
'  Cells(1, 1) = FileDT
  TimerLoop
End Sub


Sub UpDateData()
'тут пишем как обновить данные из базы

End Sub



Function FileDT() As Date
 Dim fs, f
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.GetFile("K:\Group\Sales\Аналитика\БАЗА.xls")
 FileDT = f.Datelastmodified
End Function



Sub TimerLoop()
 With Sheets(1)
  If Cells(1, 1) <> FileDT Then
    UpDateData
'    Cells(1, 1) = FileDT
  End If
  Application.OnTime Now + TimeValue("00:01:00"), "TimerLoop"
End Sub

[Град]

Спасибо, еще не совсем допонял, но разберусь.

Помогите еще с одной проплемой:

У меня в ячейке А1 переодически меняется значение, после этого в ячейке Н8 пишется "1" вот по этому макросу

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("H8").Value = "1"
End Sub

Беда в том, что потом он зацикливается. Excel принимает за изменение в ячейке H8...., а мне надо чтобы он принимал за изменение ТОЛЬКО в ячеке А1.
Как сделать?

[IgorGO]

одной из первых строк в
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
пишем
If Intersect(Range("H8"), Target) Is Target Then Exit Sub

[Ulagay700]

По первому вопросу - средствами только Экселя это сделать затруднительно, нужно, имхо, систему подключать

[valerij]

Сообщение от Град

фразу "файл был изменен".

Для этого, достаточно в свойство файла заглянуть, там все будет, даже время, когда, файл был изменен!