Theo yêu cầu của bạn ấy, mình đưa giải pháp gồm 2 phần.
1. Phần worksheet_change
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("L2").Value = "" Then
Range("L2").Value = "Yes"
End If
Application.EnableEvents = True
End Sub
2.Phần workbook_beforeSave
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
If Range("L2").Value <> "" Then
Sheets(1).Range("L1").Value = Now()
Sheets(1).Range("L2").ClearContents
End if
Application.EnableEvents = True
End Sub