Automatically Track changes in specific worksheet and Cell Range only

[mikekhel1987]

Hi Everyone I need your help how can I automatically track changes in excel in a specific worksheet and cell range only using vba. I used the code below but the code seems to work globally it track changes in all worksheet. I hope someone will help me to have a workaround in this code. Any help will be greatly appreciated. Thank You.

Dim oldValue As String
Dim oldAddress As String




Private Sub Workbook_Open()
Sheets("LogDetails").Visible = xlSheetVeryHidden
End Sub


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Sheets("LogDetails").Visible = xlSheetVisible Then
Sheets("LogDetails").Visible = xlSheetVeryHidden
Else
Sheets("LogDetails").Visible = xlSheetVisible
End If
Target.Offset(1, 1).Select
End Sub




Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sSheetName As String
sSheetName = "Data"
If ActiveSheet.Name <> "LogDetails" Then
Application.EnableEvents = False
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name & " - " & Target.Address(0, 0)
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = oldValue
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Target.Value
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Environ("username")
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Now
Sheets("LogDetails").Hyperlinks.Add Anchor:=Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 5), Address:="", SubAddress:="'" & sSheetName & "'!" & oldAddress, TextToDisplay:=oldAddress


Sheets("LogDetails").Columns("A:D").AutoFit
Application.EnableEvents = True
End If
End Sub






Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
oldValue = Target.Value
oldAddress = Target.Address
End Sub

 

[James006]

Hello,

Before getting to event macros ... have you tested out : Tools > Track Changes > Highlight Changes

​HTH

 

[mikekhel1987]

Hello,

Before getting to event macros ... have you tested out : Tools > Track Changes > Highlight Changes

​HTH

Hi,

I haven't tried it. I'd preferred macros to automatically log it in a separate work so I can view it on a detailed layout.