O ideal seria disponibilizar o arquivo como modelo para que a macro seja feita de acordo com o arquivo.

Mas de Qualquer maneira essa macro registra numa planilha de nome Dedo Duro a data, o usuario do micro, e o horario que isso foi feito.

Vc pode ocultar a planilha pelo VBA para que o usuario nao tenha acesso.

Segue o codigo

Sub RegistraUsuario()

Dim WR As Worksheet
Dim WDD As Worksheet
Dim WDDULinha As Long

Set WR = Sheets("Registro")
Set WDD = Sheets("Dedo Duro")
WDDULinha = WDD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

WDD.Cells(WDDULinha, 1) = Date
WDD.Cells(WDDULinha, 2) = Environ("UserName")
WDD.Cells(WDDULinha, 3) = Time

End Sub

Boa tarde Nicolas,

Segue minha contribuição:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wsDedoDuro  As Worksheet
Dim Dedurar     As String
Dim Indice      As Long

    Dedurar = "Registro,Registro2" ' Insira aqui o nome das planilhas que deseja derurar

    If InStr(1, Dedurar, ThisWorkbook.ActiveSheet.Name) = 0 Then Exit Sub
    Set wsDedoDuro = ThisWorkbook.Worksheets("DedoDuro")
    
    Application.EnableEvents = False
    Indice = wsDedoDuro.Cells(Rows.Count, 1).End(xlUp).Row
    wsDedoDuro.Cells(Indice + 1, 1).Value = Sh.Name
    wsDedoDuro.Cells(Indice + 1, 2).Value = Format(Now, "dd-mm-yy hh:mm:ss")
    wsDedoDuro.Cells(Indice + 1, 3).Value = Environ("USERNAME")
    wsDedoDuro.Cells(Indice + 1, 4).Value = Target.Address(False, False)
    wsDedoDuro.Cells(Indice + 1, 5).Value = Target.Value
    Application.EnableEvents = True
    
    Set wsDedoDuro = Nothing
    
End Sub

Qualquer coisa da o grito.
Abraço

Vê se isto lhe atende...

Muito Obrigado, Senhores!

A Resposta do Bernardo foi exatamente o que eu precisava.