Function ДАТАСОХРАНЕНИЯ()

Application.Volatile

On Error Resume Next

If Err.Number = 0 Then

ДАТАСОХРАНЕНИЯ = ActiveWorkbook.BuiltinDocumentProperties("Last save time")

Else

ДАТАСОХРАНЕНИЯ = "Файл не сохранен"

End If

End Function