Log på enkelt fane

Det er ikke helt klart for mig hvad du vil have logget, men hvis du vil vide hvor der er blevet rettet, kan en makro i stil med denne måske bruges:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G4:G600")) Is Nothing Then
If Range("G1") <> "" Then
x = ", "
Else
x = ""
End If
Range("G1") = Range("G1") & x & Target.Address
End If
End Sub

Hej
I et andet regneark har jeg disse koder i ThisWorkBook
Private Sub Workbook_Open()
'  Aktiver Log-arket og find det rigtige sted
    Sheets("Log").Activate
    Range("StartCell").Select
'  Gå til sidste skrevne linje
    Selection.End(xlDown).Select
'  Opdater revisionsnumme, det vil sige læg 1 til det eksisterende nummer
    ActiveCell.Offset(1, 0).Value = ActiveCell.Value + 1
'  ActiveCell.Offset(1, 0).Value = ActiveCell.Offset(1, 0).Value + 1
'  Indsæt brugernavn
    ActiveCell.Offset(1, 1).Value = Application.UserName
'  Indsæt dato
    ActiveCell.Offset(1, 2).Value = Date
'  Indsæt klokkeslet
    ActiveCell.Offset(1, 3).Value = Format(Time, "HH:MM")
'  Gem filen
    ActiveWorkbook.Save
End Sub

Her kan jeg se hvem og hvornår regnearket har været åbnet.
Jeg vil gerne have en log der viser, når fanen "Lager" har været ændret.