1. 'Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim rng1, rng2 As Range
  5. Set rng1 = Intersect([F35:F52], Target)
  6. If rng1 Is Nothing Then Exit Sub
  7. ActiveSheet.Unprotect "password"
  8. Application.EnableEvents = False
  9. [H8] = Format(Now(), "dd/mm/yyyy hh:mm:ss")
  10. Application.EnableEvents = True
  11. ActiveSheet.Protect DrawingObjects:=False, Password:="password"
  12. End Sub
  16. Set rng2 = Intersect(H35:H52], Target)
  17. If rng2 Is Nothing Then Exit Sub
  18. ActiveSheet.Unprotect "password"
  19. Application.EnableEvents = False
  20. [H9] = Format(Now(), "dd/mm/yyyy hh:mm:ss")
  21. Application.EnableEvents = True
  22. ActiveSheet.Protect DrawingObjects:=False, Password:="password"
  23. End Sub