Recording Plugin?

[Variety_Bear]

Hi All,

We use an Excel at work that's connected to SQL using 'Data From' function. Are there any plugins out there that can record when a user works on the excel and all the changes they have made? I know Excel had tracking which I used years ago, but it is legacy now and I don't think it can record everything in this Excel with live data from SQL.

Is there anything out there, or any way to record all user changes to this work book?

We have a few users using this and errors keep happening, it would be a great tool to be able to retrain, or to be able to look at in a log what user did what.

Thank you,

 

[Logit]

.
Ok ... I revised the macro. Not much but some.

Try it now. Note that I am not receiving any errors here. Remember to create a sheet named Tracker

Option Explicit

Dim vOldVal 'Must be at top of module

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim bBold As Boolean

    With Application
         .ScreenUpdating = False
         .EnableEvents = False

    End With

    If IsEmpty(vOldVal) Then vOldVal = "Empty Cell"
            
        With Sheets("Tracker")
                
            If .Range("A1") = vbNullString Then
                .Range("A1:F1") = Array("Cell Changed", "Old Value", _
                    "New Value", "Time of Change", "Date of Change", "User")
            End If
                
            With .Cells(.Rows.Count, 1).End(xlUp)(2, 1)
                  .Value = ActiveSheet.Name & " : " & Target.Address
                  .Offset(0, 1) = vOldVal
            With .Offset(0, 2)
              
            If bBold = True Then
                .ClearComments
                .AddComment.Text Text:= _
                     "NOTE :" & Chr(10) & "" & Chr(10) & _
                        "Bold values are the results of formulas"
            End If
                .Value = Target
                .Font.Bold = bBold
                
            End With
                .Offset(0, 3) = Time
                .Offset(0, 4) = Date
                .Offset(0, 5) = Application.UserName
            End With
            
            Sheet2.Range("A1:F1").Font.Bold = True
            .Cells.Columns.AutoFit
        
        End With

    vOldVal = vbNullString

    With Application
         .ScreenUpdating = True
         .EnableEvents = True
    End With

On Error GoTo 0

MsgBox "There was a change to this sheet !"  ' Delete this to prevent User knowledge.

End Sub

'This sub auto displays the TRACKER sheet after each change.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    vOldVal = Target
End Sub

 

[Variety_Bear]

I've just reread the VBA and inserted it into the workbook. It's perfect. Thank you so much for your help and patience.

 

[Logit]

You are welcome. Glad to help.