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

Есть несколько способов подойти к этой задаче. Один из них — просто выяснить, когда книга была сохранена в последний раз. Этот подход хорошо работает, если вы предполагаете, что любые изменения в книге всегда сохраняются. (Несохраненные изменения, конечно, вообще не являются длительными изменениями.) Следующий макрос возвращает дату сохранения книги и сохраняет эту дату в ячейке A1:

Sub DateLastModified()

Dim fs, f     Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("D:\MyFolder\MyFile.xlsx")

Cells(1, 1) = f.DateLastModified End Sub

Чтобы использовать макрос, просто замените спецификацию файла D: \ MyFolder \ MyFile.xlsx на то, что вам подходит.

Если вам нужен лист истории того, кто что делал с вашей книгой, тогда необходим другой подход. Возможно, лучшее решение — попробовать функцию общего доступа Excel, которую можно настроить для ведения журнала истории книги. Выполните следующие действия:

  1. Откройте вкладку «Обзор» на ленте.

  2. В группе «Изменения» щелкните инструмент «Поделиться книгой». Excel отображает диалоговое окно «Совместное использование книги».

  3. Убедитесь, что отображается вкладка «Редактирование». (См. Рис. 1.)

  4. Установите флажок Разрешить изменения.

  5. Откройте вкладку «Дополнительно». (См. Рис. 2.)

  6. Убедитесь, что установлен переключатель «Сохранить историю изменений».

  7. Используя другие элементы управления в диалоговом окне, выберите параметры отслеживания, которые вы хотите использовать с книгой.

  8. Щелкните ОК.

  9. В группе «Изменения» щелкните инструмент «Отслеживать изменения», затем выберите в подменю «Выделить изменения». Excel отображает диалоговое окно «Выделить изменения».

  10. Убедитесь, что установлен флажок «Список изменений на новом листе».

  11. Щелкните ОК.

По мере внесения изменений в книгу Excel отслеживает эти изменения (вместе с тем, кто их сделал) и помещает их на отдельный рабочий лист, чтобы вы могли просмотреть их позже.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (7924) применим к Microsoft Excel 2007, 2010 и 2013. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Noting_When_a_Workbook_was_Changed [уведомление о том, когда рабочая книга была изменена].