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

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

Sub DateLastModified()

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

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

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

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

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

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

  2. Убедитесь, что отображается вкладка «Редактирование».

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

  4. Откройте вкладку «Дополнительно».

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

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

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

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

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

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

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

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

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

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

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

Этот совет (2935) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

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