Dim vOldVal

Private Sub Worksheet_Change(ByVal Target As Range)

Dim bBold As Boolean
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
  
  With Application
  .ScreenUpdating = False
  .EnableEvents = False
  End With
  
  If IsEmpty(vOldVal) Then vOldVal = ""
  bBold = Target.HasFormula
  With Foglio5
    
    If .Range("A1") = vbNullString Then
      .Range("A1:E1") = Array("CELLA MODIFICATA", "VECCHIO VALORE", "NUOVO VALORE", "DATA & ORA MODIFICA", "AUTORE MODIFICA")
    End If
    With .Cells(.Rows.Count, 1).End(xlUp)(2, 1)
      .Value = Target.Address
      .Offset(0, 1) = vOldVal
      With .Offset(0, 2)
        If bBold = True Then
          .ClearComments
        End If
        .Value = Target
        .Font.Bold = bBold
      End With
      .Offset(0, 3) = Format(Now, "dd/MM/yyyy h:mm:ss")
      If .Offset(-1, 3) > .Offset(0, 3) Then .Offset(0, 3) = "AIUTOOOOOOOOO"   'AGGIUNTO QUESTO
      .Offset(0, 4) = Environ("USERNAME")
    End With
    .Cells.Columns.AutoFit
  End With

  vOldVal = vbNullString
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
  End With
On Error GoTo 0

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  vOldVal = Target
End Sub

Private Sub Workbook_Open()
    Range("Foglio5!G1") = Now
End Sub

Option Explicit

Sub Verifica()
'   Attuale
Dim URec As Long, x As Long
    URec = Range("Foglio5!A" & Rows.Count).End(xlUp).Row
    If Range("Foglio5!D" & URec) < Range("Foglio5!G1") Then MsgBox "Data inconguente!"
End Sub

Sub Verifica()
'   Nuova
Dim URec As Long, x As Long
    URec = Range("Foglio5!A" & Rows.Count).End(xlUp).Row
    If Range("Foglio5!D" & URec) > Range("Foglio5!G1") Then MsgBox "Data inconguente!"
End Sub

Option Explicit
Private Sub Workbook_Open()
Dim ultima As Long
    Range("Foglio5!G1") = Now
    Range("Foglio5!H1") = Range("Foglio5!D" & Range("Foglio5!D" & Rows.Count).End(xlUp).Row)
        If Range("Foglio5!D" & Rows.Count).End(xlUp).Row = 1 Then Range("Foglio5!H1") = Now
End Sub

Option Explicit
Sub Verifica()
Dim URec As Long, x As Long
    URec = Range("Foglio5!A" & Rows.Count).End(xlUp).Row
    If Range("Foglio5!H1") > Range("Foglio5!G1") Then MsgBox "Data inconguente!"
End Sub