Как отслеживать изменения, не делясь книгой?
Обычно, когда вы применяете функцию отслеживания изменений в Excel, книга будет доступна одновременно, это будет раздражать, потому что некоторые функции в Excel будут отключены. Как можно было отслеживать изменения, не делясь книгой? Здесь я порекомендую вам код VBA.
Отслеживайте изменения без предоставления общего доступа к книге с помощью кода VBA
Преобразование текста в таблицу в Outlook
У вас нет прямого способа решить эту проблему, но вы можете применить гибкий код VBA для ее решения, пожалуйста, сделайте следующее:
1. Щелкните правой кнопкой мыши вкладку листа, которую вы хотите отслеживать измененные ячейки, и выберите Просмотреть код из контекстного меню во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустое Модули:
Код VBA: отслеживание изменений без предоставления общего доступа к книге:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const xRg As String = "A1:Z1000"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub
Внимание: В приведенном выше коде A1: Z1000 - это диапазон данных, изменения которого вы хотите отслеживать.
2. Затем сохраните и закройте это окно кода, теперь, когда вы изменяете значения в любых ячейках в пределах указанного диапазона, который вы установили в коде, ячейки будут отслеживаться, и к книге не будет предоставлен общий доступ. Смотрите скриншот:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!