How to track changes

[Cameron1s]

I have been trying to set one of my company's excel documents to be tracked. I have found it, I have set it up and it works really well. Only issue is, it makes the document [Shared]. The issue with this, is that the document is on a shared drive, we have tried to have it shared before but it just brakes or duplicates the document... ect. Is there a way that we can track the document (I.E. and changes to any cell, who, when, and to what.. ect) without having the document shared, even if that means that we are running off of another excel document.

Online I have found that you can do some coding that will allow you to do this, but I am not 100% sure.

 

[Cameron1s]

*EDIT*

The below is the code that I am using. Only issue is, excel is not picking up the usernames and date/time, it keeps Throwing up an error on the row highlighted below. We are using AD, so not sure if this might be the issue? Any help with this would be amazing!!

[FONT=&quot]Private Sub Workbook_Open()
Sheets(“Tracking”).Visible = xlSheetVeryHidden
End Sub[/FONT]
[FONT=&quot]Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Sheets(“Tracking”).Visible = xlSheetVisible Then
Sheets(“Tracking”).Visible = xlSheetVeryHidden
Else
Sheets(“Tracking”).Visible = xlSheetVisible
End If
Target.Offset(1, 1).Select
End Sub[/FONT]
[FONT=&quot]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> “logDetails” Then
Application.EnableEvents = False
Sheets(“Tracking”).Range(“A” & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name & “-” & Target.Address(0, 0)
Sheets(“Tracking”).Range(“A” & Rows.Count).End(xlUp).Offset(0, 1).Value = Target.Value
Sheets(“Tracking”).Range(“A” & Rows.Count).End(xlUp).Offset(0, 2).Value = Environ(“username”)
Sheets(“Tracking”).Range(“A” & Rows.Count).End(xlUp).Offset(0, 3).Value = Now
Sheets(“Tracking”).Columns(“A:D”).AutoFit
Application.EnableEvents = True
End If
End Sub[/FONT]