워크북을 공유하지 않고 변경 내용을 추적하는 방법은 무엇입니까?

일반적으로 Excel에서 변경 내용 추적 기능을 사용하면 워크북이 동시에 공유됩니다. 이로 인해 Excel의 일부 기능이 비활성화되어 불편할 수 있습니다. 워크북을 공유하지 않고 변경 내용을 추적하려면 어떻게 해야 할까요? 여기에서는 VBA 코드를 추천해 드리겠습니다.

VBA 코드를 사용하여 워크북을 공유하지 않고 변경 내용 추적하기

Outlook에서 텍스트를 표로 변환

이 문제를 해결하는 직접적인 방법은 없지만 유연한 VBA 코드를 사용할 수 있습니다. 다음 단계를 따르세요:

1. 변경된 셀을 추적하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭하고, 컨텍스트 메뉴에서 보기 코드를 선택하세요. Microsoft Visual Basic for Applications 창이 나타나면, 다음 코드를 빈 모듈에 복사하여 붙여넣으세요:

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. 그런 다음 이 코드 창을 저장하고 닫습니다. 이제 지정된 범위 내의 셀 값을 변경하면 워크북을 공유하지 않고도 변경 내용이 추적됩니다. 스크린샷 참고: