Вот готовая функция, возвращающая дату сохранения файла.

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

Application.Volatile

On Error Resume Next

If Err.Number = 0 Then

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

Else

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

End If

End Function