Фиксирование времени открытия файла

[eda]

Здравствуйте. Подскажите, пожалуйста, как зафиксировать время открытия Excel-файла?

[SAS888]

А куда помещать зафиксированное время?

[EducatedFool]

Макрос Workbook_Open срабатывает каждый раз при открытии книги. Внутри его и помещаем команду записи текущего времени:

(описано 3 способа записи - сами выберите подходящий)

Private Sub Workbook_Open()
    ThisWorkbook.BuiltinDocumentProperties("Comments") = Now ' пишем в свойства документа
    [a1] = Now ' пишем в ячейку
    SaveSetting "MyProgram", "Options", "Дата открытия файла", Now ' пишем в реестр
End Sub

[eda]

Большое спасибо!

[eda]

Скажите, а как проверить из надстройки, открыта ли книга?

[SAS888]

Сама надстройка всегда открыта. А если нужно проверить открыта ли книга (хоть из надстройки, хоть нет), то можно так:

On Error Resume Next
    Set Wb = Workbooks("test.xls")
    If Err = 0 Then MsgBox "Книга открыта" Else MsgBox "Книга не открыта"
    On Error GoTo 0