Private Sub Workbook_Open()

[Hugo121]

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

... зипил, не зипил... не дает.
Есть еще варианты?

Попробуйте порарить
Хотя вроде зип ведь тоже люди постят, или ошибаюсь?

[jungo]

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

Попробуйте порарить
Хотя вроде зип ведь тоже люди постят, или ошибаюсь?

Дурузья.
Там кода всего ничего...
В ThisWorkbook:

Private Sub Workbook_Open()
Run "UpdateTime"
End Sub

Добавил Module1:

Sub UpdateTime()
Dim varNextCall As Variant
ThisWorkbook.Worksheets("status").Cells(2, 4).Value = Now
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
Application.OnTime varNextCall, "UpdateTime"
End Sub

Остатлось только сделать так, что бы при открытии другого файла и закрытия нашего (то, что с макросом) наш не открывался.
Плиз, помогите...

[Serge_Bliznykov]

ну, а если запаковать в архив, то можно получить расширение .ZIP
или .RAR

[Hugo121]

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

Остатлось только сделать так, что бы при открытии другого файла и закрытия нашего (то, что с макросом) наш не открывался.
Плиз, помогите...

так ведь подсказали уже выше код на событие закрытия этого файла.

[jungo]

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

так ведь подсказали уже выше код на событие закрытия этого файла.

Так я же ламер, я написал честно... Не знаю где и какой код ставить.
Помогите с обьеснением пожалуйста.

[IgorGO]

в модуль эта книга:

Private Sub Workbook_BeforeClose(Cancel as Boolean) 
 Application.OnTime varNextCall, "UpdateTime", schedule:=false
End Sub

Private Sub Workbook_Open()
  UpdateTime
End Sub

В программый модуль:

Public varNextCall As date

Sub UpdateTime()
  ThisWorkbook.Worksheets("status").Cells(2, 4).Value = Now
  varNextCall = Now + 1/24/3600:  Application.OnTime varNextCall, "UpdateTime"
End Sub

[jungo]

Все работает!!!
Спасибо огромное!!!!!!!!
Урааааа!!!!