Журнал изменений в excel где хранится

1.
О продукте

Возможности Microsoft Excel

2.
Новые ключевые
возможности Microsoft Excel

3. Дополнительные новые
возможности Microsoft Excel

4. 
Специальные
возможности в Microsoft Excel

Технические характеристики и компоненты
Microsoft Excel

5.
Технические характеристики и ограничения Microsoft Excel

6. Компоненты,
устанавливаемые вместе с Microsoft Excel

Настройка Microsoft Excel

7. Настройка элементов
окна программы

8. Изменение
значений по умолчанию и настроек

9.  Настройка панелей инструментов и меню

10. Настройка
параметров запуска Microsoft Excel

11. Использование надстроек и дополнительных компонентов

12.

Разрешение вопросов, связанных с
настройкой приложения Microsoft Excel

Управление и печать файлов

13. Создание и
открытие книг

14.
Поиск и предварительный просмотр файлов

15.
Настройка свойств
файлов

16. Печать
файлов

17. Сохранение и закрытие файлов

18.
Преобразование
файлов в формат
Microsoft
Excel и обратно

19. Работа с
шаблонами

20. Разрешение вопросов, связанных с управлением и
печатью файлов

Работа с книгами и листами

21.
Управление
листами

22. Размещение окон и просмотр листов

23.
Сохранение настроек
отображения и печати как представления

24.
Разрешение вопросов
при работе с книгами и листами

Работа с
данными на листах

25.
Ввод данных

26.
Выбор данных

27.
Редактирование данных на
листе

28.
Копирование и перемещение
данных

29.
Проверка орфографии

30.
Использование буфера обмена
Microsoft Office

31.
Форматирование листов

32.
Использование границ и
заливки

33.
Использование условных
форматов

34.
Изменение размера ячеек и
положения текста

35.
Использование числовых
форматов

36.
Использование стилей

37.
Работа с текстом и данными

38.
Отбор

39.
Сортировка

40.
Проверка записей в ячейках

41.
Разрешение вопросов,
связанных с данными на листах

Использование
Microsoft Excel  при работе в
Интернете

42.
Публикация данных
Microsoft Excel
в Интернете

43.
Загрузка и анализ данных из
Интернета

44.
Работа с гиперссылками

45.
Работа с веб-папками

46.
Автоматизация содержимого
веб-страниц

47.
Работа с файлами и узлами
FTP

48.
Разрешение вопросов
по использованию
Microsoft Excel при работе в
Интернете

Импорт данных

49.
Импорт данных

50.
Работа с данными
OLAP

51.
Создание и выполнение
запросов

52.
Настройка
Microsoft Query и источников
данных

53.
Работа с внешними данными на
листе

54.
Разрешение вопросов,
связанных с внешними данными

Анализ и
управление данными

55.
Автоматический расчёт
итоговых данных

56.
Структуризация данных

57.
Консолидация данных

58.
Анализ данных с помощью
свободных таблиц и отчётов

59.
Создание и удаление
свободных таблиц и отчётов

60.
Настройка вида и разметки
свободных таблиц

61.
Печать свободных таблиц

62.
Создание свободных таблиц с
помощью групповых операций и формул

63.
Извлечение и обновление
данных

64.
Выполнение анализов
«что-если» для данных на листах

65.
Анализ таблиц данных

66.
Процедура поиска решения

67.
Работа со сценариями

68.
Разрешение вопросов,
связанных с анализом и управлением
данными

Создание и
использование форм

69.
Создание и использование форм

70.
Создание форм

71.
Использование форм

72.
Разрешение вопросов,
связанных с созданием и использованием
форм

Создание и
исправление формул

73.
Создание формул

74.
Использование ссылок

75.
Формулы массивов

76.
Имена и заголовки

77.
Условные формулы

78.
Формулы даты и времени

79.
Математические формулы

80.
Текстовые формулы

81.
Формулы сравнения

82.
Финансовые формулы

83.
Создание связей

84.
Управление расчётами

85.
Исправление формул

86.
Работа с Евро

87.
Разрешение вопросов,
связанных с созданием и исправлением
формул

Работа с
функциями

88.
Справка по функциям

89.
Внешние функции

90.
Инженерные функции

91.
Информационные функции

92.
Логические функции

93.
Математические функции

94.
Статистические функции

95.
Текстовые функции и функции
обработки данных

96.
Финансовые функции

97.
Функции баз данных

98.
Функции даты и времени

99.
Функции просмотра

Работа с
рисунками и диаграммами

100.
Работа с рисунками и
диаграммами

101.
Создание фигур, линий,
полулиний и других графический объектов

102.
Форматирование графических
объектов

103.
Добавление текста и особых
текстовых эффектов

104.
Группировка, выравнивание и
перемещение графических объектов

105.
Работа с импортированными
рисунками и картинками

106.
Работа со схемами и
организационными диаграммами

107.
Разрешение вопросов,
связанных с графическими объектами и
рисунками

Работа с
диаграммами

108.
Создание диаграмм

109.
Отображение диаграмм

110.
Работа с маркерами данных,
подписями значений и текстом

111.
Редактирование данных в
диаграмме

112.
Планки погрешностей и линии
тренда

113.
разрешение вопросов ,
связанных с диаграммами

Система
безопасности

114.
Защита от вирусов

115.
Цифровые подписи и
сертификаты

116.
Защита книг и листов

117.
Обеспечение
конфиденциальности

118.
Разрешение вопросов,
связанных с безопасностью

Совместная
работа

119.
Работа с общими книгами

120.
Отправка данных на рецензию

121.

Отслеживание изменений

122.
Пометка и просмотр изменений

123.
Слияние книг

124.
Работа с примечаниями

125.
Работа с обсуждениями

126.
Проведение собраний по
сети

127.
Взаимодействие
Microsoft Excel
и Lotus Notes

128.
Разрешение вопросов,
связанных с совместной работой

Доступ к данным
совместно с другими программами

129.
Доступ к данным совместно с
другими программами

130.
Обмен данными между
Microsoft Excel,
Microsoft Word и
Microsoft PowerPoint

131.
Обмен данными между
Microsoft Excel
и Microsoft Access

132.
Взаимодействие между
Microsoft Excel 
Microsoft outlook

133.
Разрешение вопросов,
связанных с совместным доступом к данным

Рукописный текст
и речь

134.
Распознание рукописного
текста и речи

135.
Обработка рукописного текста

136.
Распознавание рукописного
текста на восточно-азиатских языках

137.
Обработка речи

138.
Разрешение вопросов,
связанных с распознаванием рукописного
текста и речи

Смарт-теги

139.
Использование смарт-тегов

140.
Разрешение вопросов,
связанных со смарт-тегами

Автоматизация
задач

141.
Работа с макросами

142.
Разрешение вопросов,
связанных с автоматизацией задач

Запись изменений

Microsoft Excel может
сохранять и отображать сведения об изменениях листа.

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

Эту возможность
следует использовать, когда книгу редактируют несколько пользователей.
Кроме того, она пригодится при отправке книги рецензентам для
комментариев, если после этого потребуется объединить записи в одну
копию, чтобы выбрать, какие изменения и комментарии сохранить.

Как работает режим записи
изменений

Использование журнала изменений

Изменения, не
отслеживаемые и не отображаемые в Microsoft Excel

Отслеживаются
изменения, вносимые в содержимое ячеек, включая их перемещение и
копирование, а также вставку и удаление строк и столбцов. В Microsoft
Excel не отслеживаются изменения следующих типов.

Отслеживание изменений
доступно только в общих книгах. Соответственно, изменения, связанные с
функциями, недоступными в общих книгах, не отслеживаются.

Функции, недоступные в
общих книгах

Отключение
отслеживания исправлений

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

   Инструкции

   1. В меню
      Сервис укажите на пункт
      Исправления и выберите
      команду Выделить
      исправления.

   2. В поле
      по времени выберите вариант
      Все.

   3. Снимите флажки
      пользователем и
      в диапазоне.

   4. Установите флажок
      Вносить изменения на
      отдельный лист и нажмите кнопку OK.
      

   5. Выполните одно или
      несколько следующих действий:

      чтобы напечатать лист
      журнала, нажмите кнопку Печать ;

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

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

2. Выполните одно из следующих
   действий:

   если общая книга защищена,
   укажите на пункт Защита в меню
   Сервис и выберите команду
   Снять защиту общей
   книги. Введите пароль, если он потребуется, и нажмите кнопку
   ОК;

   если общая книга не защищена,
   выберите в меню Сервис команду
   Доступ к книге. Откройте
   вкладку Подробнее и выберите
   вариант не хранить
   журнал изменений.

Включение журнала
изменений книги

1. В меню
   Сервис выберите команду
   Доступ к книге и откройте
   вкладку Правка.

2. Установите флажок
   
   Разрешить совместный доступ.

3. Откройте вкладку
   Подробнее.

4. В группе
   Регистрация изменений
   установите флажок хранить
   журнал изменений в течение и укажите в поле
   дн. количество дней, в течение которых
   следует хранить журнал изменений.

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

5. Нажмите кнопку
   OK и, если будет выдан запрос запрос,
   подтвердите сохранение файла, нажав кнопку
   OK.

Примечание.   При
включении журнала изменений книга также становится общей.

Просмотр исправлений

1. В меню
   Сервис укажите на пункт
   Исправления и выберите команду
   Выделить исправления.
   

   Если флажок
   Отслеживать
   исправления не установлен, в журнал изменений не записываются
   внесенные в книгу изменения.

2. Выберите исправление, которое
   требуется просмотреть.

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

   Исправления,
   внесенные после определенной даты.   Установите флажок
   по времени, выберите вариант
   С даты, а затем введите дату,
   исправления после которой требуется просмотреть.

   Исправления,
   внесенные определенным пользователем.   Установите флажок
   Пользователем и выберите пользователя,
   исправления которого требуется просмотреть.

   Исправления в
   определенном диапазоне.   Установите флажок
   в диапазоне, а затем введите ссылку
   на диапазон или выделите диапазон на листе.

3. Выберите способ просмотра
   исправлений.

   Выделение на листе.  
   Установите флажок
   Выделять исправления на экране. Чтобы просмотреть подробные
   сведения об изменении, зафиксируйте указатель мыши на выделенной
   ячейке.

   Просмотр на
   отдельном листе.   Чтобы отобразить лист изменений, установите
   флажок Вносить изменения
   на отдельный лист. Данный флажок доступен, только если
   задействовано отслеживание изменений и несколько изменений
   сохранено.

Просмотр журнала
изменений

1. В меню
   Сервис укажите на пункт
   Исправления и выберите команду
   Выделить исправления.
   

   Если флажок
   Отслеживать
   исправления не установлен, в журнал изменений не записываются
   внесенные в книгу изменения.

2. В поле
   по времени выберите вариант
   Все.

3. Снимите флажки
   пользователем и
   в диапазоне.

4. Установите флажок
   Вносить изменения на
   отдельный лист.

5. Нажмите кнопку
   ОК, а затем для поиска нужных сведений
   нажмите стрелки фильтрации, расположенные возле подписей столбцов в
   списке исправлений.

Примечание.  
При сохранении книги лист изменений автоматически удаляется. Чтобы
просмотреть лист изменений после сохранения книги, снова отобразите
ее.

Хитрости »

1 Май 2011              273545 просмотров

Ведение журнала сделанных в книге изменений

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

• Отслеживание изменений при помощи встроенных средств — Общий доступ к книге
• Отслеживание изменений и ведение журнала при помощи кода

Отслеживание изменений при помощи встроенных средств — Общий доступ к книге
Есть относительно простой способ отслеживать изменения(если это можно так назвать): дать книге общий доступ
Excel 2007 и выше: вкладка Рецензирование(Review) —Доступ к книге(Share workbook).
В более новых версиях(таких как Excel 2021 и выше, а так же Office 365) на вкладке Рецензирование(Review) нет команды Доступ к книге(Share workbook). Она спрятана, т.к. считается устаревшей и вместо неё Microsoft принуждает использовать общий доступ через OneDrive. Достать устаревшую возможность общего доступа можно через меню:
Файл(File) -Параметры(Options) -либо Панель быстрого доступа(Quick Access Toolbar) либо Настроить ленту(Customize ribbon) -в списке Выбрать команды из(Choose commands from) выбираем Все команды(All commands) и находим там пункт: Общий доступ к книге(старые версии)(Share workbook(Legacy) и Выделить исправления(Highlight changes). Перемещаем их либо на панель быстрого доступа(если она была выбрана изначально), либо на ту же вкладку Рецензирование(Review), если команда выбиралась в Настроить ленту(Customize ribbon).
После этого выбираем команду Общий доступ к книге(старые версии)(Share workbook(Legacy)
В появившемся окне поставить галочку разрешить изменять файл нескольким пользователям одновременно(Allow changes by more then one user at the same time):

Далее можно настроить срок хранения лога изменений, конфликты и пр — вкладка Подробнее(Advanced):

Регистрация изменений(Track changes)

• Хранить журнал в течение(keep change history for): — если необходимо вести журнал изменений(а нам необходимо!) то оставляем этот пункт включенным и устанавливаем количество дней, в течение которых необходимо сохранять историю. По умолчанию это 30 дней. Здесь имеются ввиду последние 30 дней от текущей даты. Т.е. по истечению этих 30 дней более ранние данные истории будут затерты
• Не хранить журнал изменений(don’t keep change history): после выбора этого пункта и подтверждения журнал будет удален(если он был создан) и история вестись не будет

Обновлять изменения

• При сохранении файла(When file is saved) — это самый оптимальный вариант. Данные об изменениях в файле будут обновляться только тогда, когда мы сами сохраним файл.
• Каждые(Automatically every): указывается промежуток времени в минутах, через который книга сама автоматически будет сохраняться и регистрировать изменения. Не очень удобен данный пункт если в файле одновременно работает несколько человек. При этом необходимо будет обязательно выбрать какое действие будет производится по умолчанию:
  • сохранить мои изменения и просмотреть чужие(save my changes and see others’ changes)
  • только просмотреть чужие изменения(just see other users’ changes)

  Пункты говорят сами за себя, можно отметить лишь один нюанс: принимать решение о сохранении тех или иных изменениях будет тот пользователь, который первым открыл файл.

Для противоречивых изменений(Conflicting changes between users)

данный пункт управляет разрешением конфликтов, если при одновременном пользовании файлом несколькими пользователями два и более пользователя сделали изменения в одной и той же ячейке листа.
• запрашивать чьи изменения имеют преимущество(ask me which changes win) — самый оптимальный вариант. Первый, открывший файл пользователь определяет какие изменения надо принять, а какие отклонить
• ранее сохраненные имеют преимущество(the changes being saving win) — не очень правильный вариант, но все зависит от ситуации. По логике при данном пункте при возникновении конфликта автоматически будут приняты лишь те изменения, которые были сделаны ранее. Может сыграть нехорошую шутку, поэтому надо быть острожным с этим пунктом

Включить в личное представление(Include in personal view)

Данный пункт управляет настройками печати и фильтра общей книги для нескольких пользователей.
• параметры печати(Print settings) — Обычно, в одном файле когда мы настраиваем параметры печати, они сохраняются внутри файла и при следующем открытии их не надо уже заново настраивать. Здесь тоже самое, но хранится для каждого пользователя отдельно. Т.е. даже если в этом файле один пользователь настроил одни параметры печати, а другой – иные, то для каждого пользователя эти параметры сохраняться. В обычной книге применились бы те параметры, которые были назначены перед последним сохранением книги.
• фильтры(Filter settings) — если один пользователь отфильтровал данные по «Юго-Восточный округ», а другой тот же столбец по «Северный округ», то при установленном данном пункте у каждого пользователя файл откроется с отфильтрованными строками именно по установленным ими параметрам — для каждого свой

Но оба эти пункта имеют большой недостаток: в зависимости от количества пользователей и их действий они могут сильно «раздувать» файл и приводить к значительным его «тормозам». Поэтому без необходимости лучше их не использовать

Теперь самое главное: как увидеть все сделанные изменения
После того, как пользователи поработали с файлом и стало необходимо увидеть сделанные изменения необходимо перейти на вкладке Рецензирование(Review) —Исправления(Track changes) —Выделить исправления(Highlight changes)

Здесь можно выбрать какие изменения показывать

• по времени(When) — если хотите увидеть только какие-то конкретные изменения, то надо установить галочку на этом пункте и выбрать нужное. Доступно выбрать: Со времени последнего сохранения, Все, Еще не просмотрено, С даты. Пункты достаточно красноречивы и понятны, расписывать каждый не вижу смысла. Если хотите просмотреть все изменения — галочку с этого пункта надо снять
• пользователем(Who) можно показать изменения, сделанные конкретным пользователем, всеми пользователями, или всеми пользователями, кроме того, кто запросил отчет об изменениях(т.е. кроме себя любимого)
• в диапазоне(Where) можно указать конкретный диапазон на листе и отчет об изменения будет выведен только для ячеек этого диапазона.

Выделять исправления на экране(Highlight changes on screen): если установить эту галочку, то изменения будут созданы в виде примечаний к ячейкам, изменения в которых были сделаны. В левом верхнем углу ячейки в этом случае появится черный треугольник, а при наведении на эту ячейку появится примечание с информацией о том кто изменил, когда и на что:

Вносить изменения на отдельный лист(List changes on a new sheet): в этом случае будет создан новый лист с именем «Журнал», в котором будут перечислены ячейки, в которые были внесены изменения с указанием даты и времени изменения, пользователя сделавшего изменение, старое и новое значение измененной ячейки:

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

Но самый главный недостаток: книги в общем доступе имеют ряд ограничений, среди которых такие как:

• невозможно удалять листы
• невозможно создавать диаграммы, можно лишь просматривать созданные ранее
• невозможно создавать сводные таблицы, можно лишь просматривать созданные ранее
• невозможно создавать или изменять группировку данных, можно использовать ранее созданную
• невозможно изменять параметры защиты листов и книги
• невозможно использовать расширенный фильтр
• невозможно использовать Текст по столбцам
• невозможно создавать новые проверки данных, а так же изменять существующие. Допускается лишь обвести или удалить обводку с неверных данных
• невозможно добавлять или изменять ранее созданные формулы массива
• и т.д.

Плюс невозможно не только использовать умные таблицы, но и сделать книгу общей, если в ней есть хоть одна умная таблица. Если будет попытка сделать общий доступ к книге с умной таблицей Excel покажет предупреждение, что этого делать нельзя и проинструктирует как преобразовать такую таблицу в диапазон для возможности использовать общий доступ.
Так же хочу отметить, что есть распространенное заблуждение о невозможности использования макросов в книгах с общим доступом. Это не так, коды Visual Basic for Applications разрешается применять и в большинстве случаев они будут работать корректно и как задумывались, если они только не пытаются произвести действия, перечисленные как запрещенные для книг с общим доступом. Плюс невозможно просматривать и изменять коды в книгах с общим доступом.

• Имя пользователя(учетная запись пользователя на компьютере), сделавшего изменения
• адрес ячейки, в которую были внесены изменения
• дата и время внесения изменений
• имя листа, в котором были сделаны изменения
• значение ячейки до изменения(старое значение)
• значение ячейки после изменения(новое значение).

Итак, Вы решили реализовать данный процесс. Изначально необходимо разрешить макросы, без этого данный способ ведения журнала не сработает. Далее необходимо добавить в книгу новый лист с именем LOG и вставить приведенный код в модуль книги, изменения в которойнеобходимо отслеживать:

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim sLastValue As String
    Dim lLastRow As Long
 
    With Sheets("LOG")
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If Target.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    If Target.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Что такое модуль книги и как туда вставить код подробно описано в этой статье. Если кратко: открываем редактор VBA(Alt+F11) -находим в списке объектов ЭтаКнига(ThisWorkbook) -двойной щелчок по ней и в окно редактора справа вставляется этот код.

Лист «LOG» рекомендую сделать скрытым, иначе смысла в отслеживании действий мало, т.к. любой сможет перейти на этот лист и стереть историю своих изменений. Надежно скрыть лист поможет эта статья: Как сделать лист очень скрытым.

Для того, чтобы хранить историю изменений в отдельном текстовом файле или отдельной книге Excel можно применить такой код:

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim sLastValue As String
    Dim lLastRow As Long, wbLOG As Workbook
    Dim sPath as String
    Const sLOGName As String = "LOG.txt" '"LOG.xls"
    sPath = Application.DefaultFilePath
    Application.ScreenUpdating = False
    '==============   только для записи в текстовый файл   ======================
    If Dir(sPath & sLOGName, vbDirectory) = "" Then
        Open sPath & sLOGName For Output As #1: Close #1
    End If
    '==============   только для записи в отдельный файл Excel ======================
'    If Dir(sPath & sLOGName, vbDirectory) = "" Then
'        Set wbLOG = Workbooks.Add
'        wbLOG.SaveAs sPath & sLOGName, xlNormal
'    End If
    Set wbLOG = Workbooks.Open(sPath & sLOGName)
    '============================================================================
    With wbLOG.Sheets(1)
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = .Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If Target.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    wbLOG.Close 1
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    If Target.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Файл хранится в папке «Мои документы» пользователя. Имя файла — LOG.txt задается посредством константыConst sLOGName As String = «LOG.txt»

Чтобы вести изменения в отдельной книге Excel надо будет всего лишь закомментировать строки под «только для записи в текстовый файл» и раскомментировать строки под «только для записи в отдельный файл Excel» и поменять значение для константыConst sLOGName As String = «LOG.xls»
Не следует оставлять оба этих блока — они противоречат друг другу и если оставить оба, то будет создан текстовый файл, но изменения все равно будут заноситься в отдельную книгу Excel.
Если хотите, чтобы файл с историей изменений хранился в папке, отличной от Мои документы, то необходимо
Application.DefaultFilePath заменить на нужный путь, к примеру такой:sPath = «C:UsersThe_PristРабочий стол»

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

Все чаще стали появляться вопросы типа «А как отследить изменения только в конкретном диапазоне?». На самом деле не очень сложно. Надо добавить пару строк, которые будут определять в каких ячейках были изменения и какие отслеживать. Только добавить строки надо будет в обеих процедурах: Workbook_SheetChange и Workbook_SheetSelectionChange.
Например, код ниже будет отслеживать только те ячейки, для которых значение изменили только в диапазоне B:F:

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim rCells As Range
    'если изменения произошли не в диапазоне "B:F" - ничего не делаем
    On Error Resume Next
    Set rCells = Intersect(Target, Range("B:F"))
    If rCells Is Nothing Then Exit Sub
    On Error GoTo 0
 
    Dim sLastValue As String
    Dim lLastRow As Long, wbLOG As Workbook
    Dim sPath as String
    Const sLOGName As String = "LOG.txt" '"LOG.xls"
    sPath = Application.DefaultFilePath
    Application.ScreenUpdating = False
    '==============   только для записи в текстовый файл   ======================
    If Dir(sPath & sLOGName, vbDirectory) = "" Then
        Open sPath & sLOGName For Output As #1: Close #1
    End If
    '==============   только для записи в отдельный файл Excel ======================
'    If Dir(sPath & sLOGName, vbDirectory) = "" Then
'        Set wbLOG = Workbooks.Add
'        wbLOG.SaveAs sPath & sLOGName, xlNormal
'    End If
    Set wbLOG = Workbooks.Open(sPath & sLOGName)
    '============================================================================
    With wbLOG.Sheets(1)
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = .Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If rCells.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(rCells, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    wbLOG.Close 1
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim rCells As Range
    'если изменения произошли не в диапазоне "B:F" - ничего не делаем
    On Error Resume Next
    Set rCells = Intersect(Target, Range("B:F"))
    If rCells Is Nothing Then Exit Sub
    On Error GoTo 0
 
    If rCells.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(rCells, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Скачать пример

  Tips_Macro_LOG.xls (50,0 KiB, 8 023 скачиваний)

Так же см.:
Выделение сделанных изменений
Запись изменений на листе в примечания

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Функция «Исправления» — одна из самых лучших функций в Excel. Она позволяет вам не запутаться при работе с большими объемами данных и файлами, которые редактируют сразу несколько человек.

С помощью этой функции, вы можете отдельно отслеживать каждое изменение или сразу все. В общем, настроек в ней много.

Итак, начнем!

Как начать следить за изменениями в Excel

Изначально эта опция не активирована в Excel. Вы можете сделать это самостоятельно.

Пошаговая инструкция:

• Щелкните на «Рецензирование»;

• Щелкните на «Выделить изменения…» в функции «Исправления»;

• В открывшемся окошке поставьте галочку на опции «Отслеживать исправления». Также вы можете задать дополнительные настройки (видно на картинке), но это уже по вашему усмотрению;

• Подтвердите.

Итак, мы включили функцию.

Как работает эта опция в Excel

Итак, теперь при каждом изменении ячейки она будет выделена синей рамкой. Если вы нажмете на неё, вы увидите кто, когда и что конкретно изменил в ячейке. Это очень удобно когда файл редактируют несколько людей. Например, если вы нашли ошибку, то можете увидеть кто её допустил.

На картинке ниже, я поменял значение ячейки B1, она выделилась синим цветом и в ней появился синий треугольник (слева вверху).

Если мы поместим курсор мышки на ячейку, то увидим небольшое окошко с примечанием, в нем будет указана вся информация про изменение.

Важная информация: когда вы включаете эту функцию, ваш файл Excel становится «Общим». Вы не сможете использовать его защиту (с паролем, как мы рассматривали в статьях ранее) и так далее. Имейте это в виду.

Как просмотреть все изменения списком

Это может понадобиться, когда вы работаете с большими объемами данных. Вы можете просмотреть сразу все изменения, которые вносились в файл списком.

Пошаговая инструкция:

• Щелкните на «Рецензирование»;

• Щелкните на «Выделить изменения…» в функции «Исправления»;

• В открывшемся окошке, кроме уже поставленной галочки на «Отслеживать исправления», поставьте галочку на опции «Вносить изменения на отдельный лист»;

• Подтвердите.

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

Принимаем или отклоняем изменения

В случае если у вас активирована наша функция, изменения, которые вносятся в ячейки не являются окончательными. Чтобы они стали окончательными, вы должны принять их в специальном разделе «Принять/отклонить исправления». Это относится и к изменениям, которые вносили другие люди в ваш файл, если такие, разумеется, есть.

Пошаговая инструкция:

• Щелкните на «Принять/отклонить исправления» в функции «Исправления»;

• В открывшемся окне «Просмотр исправлений» можно выбрать:
  • Когда были внесены изменения
  • Какой пользователь вносил изменения
  • И в каком диапазоне вносились изменения

• Когда укажете нужные вам параметры, подтвердите;
• В следующем окне Excel покажет вам все изменения, которые вносились в ячейках, которые удовлетворяют всем указанным параметрам в прошлом шаге.

Вот и все, в этом окошке вы выбираете, принять или отклонить изменения (например, если вы увидели ошибку, вы можете отклонить).

Отключаем опцию

Когда вы закончите работу над файлом, вы можете отключить эту опцию, чтобы она не мешала.

Пошаговая инструкция:

• Щелкните на «Выделить исправления…» в функции «Исправления»;

• И просто снимите галочку, которую мы поставили ранее («Отслеживать исправления»);

• Подтвердите;

• Откроется окошко, указанное на картинке ниже. Просто щелкните «Да».

Различия между комментариями и отслеживанием изменений

Некоторым нравится добавлять комментарии к ячейкам.

В чем разница между комментарием и отслеживанием изменения:

• Функция «Отслеживание изменений» пишет примечание для каждой ячейки только тогда, когда она была изменена. В случае комментария, изменения необязательны. Комментарий можно оставить и без изменения ячейки.

• Преимущество функции, рассмотренной в статье, заключается в том, что она автоматизирована. То есть она автоматически помечает все ячейки, где было изменение.

• Также нельзя вывести все комментарии для файла, в отдельный лист и после, например, распечатать их.

• Минус нашей функции в том, что, например, мы не можем защитить файл Excel, когда используем функцию. А если мы используем комментарии, то можем.

Как узнать, когда и кем были внесены изменения в таблицу Excel 2010?

Как сделать так что бы отображалась дата внесенного изменения в конкретную таблицу?

1. Штатными средствами Excel. Для этого необходимо сделать книгу общей. Меню
   Рецензирование – Доступ к книге – установить галочку
   Разрешить изменять файл…:



Далее потребуется пересохранить книгу. Теперь в заголовке окна Excel после названия книги появится слово
Общий.
После этого нужно определится с режим исправлений:
Меню Рецензирование – Исправления – Выделить исправления.
Как видим, можно отслеживать изменения по времени, по пользователю или по диапазону ячеек.
Еще можно решить, где выделять изменения: в ячейке или на отдельном листе.
В первом случае получается своего рода комментарий к ячейке:



, а во втором – журнал изменений.



2. Если книгу делать общей нежелательно, можно воспользоваться вот таким макросом:

Здесь «A3:D8» – диапазон ячеек, в которых отслеживаются изменения,
«B1» – ячейка для записи результата.

Пример работы макроса:

Как добавить макрос (на примере Excel 2010) написано
здесь.

Но при таком способе, как только вносится изменение, так сразу отображается дата и как
следствие нельзя отменить действие. Как видно, способ также не лишен недостатков.