Определение даты сохранения файла Excel

Описание функции

Конечно дату сохранения файла можно легко посмотреть в свойствах файла. Однако данная функция скорее необходимо тем, кому нужно контролировать дату сохранения непосредственно в файле. Функция =ДАТАСОХРАНЕНИЯ() не имеет аргументов.

Пример

Функция из надстройки работает аналогично стандартным Определение даты сохранения текущей книги.

Код на VBA

Ниже приведен код функции на VBA. Можете скопировать его в личную книгу макросов и использовать при программировании.

Function ДАТАСОХРАНЕНИЯ()
    Application.Volatile
    On Error Resume Next
    If Err.Number = 0 Then
        ДАТАСОХРАНЕНИЯ = ActiveWorkbook.BuiltinDocumentProperties("Last save time")
    Else
        ДАТАСОХРАНЕНИЯ = "Файл не сохранен"
    End If
End Function