Cần giúp Code xác định thời gian lưu (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Mọi người có thể giúp em 1 đoạn code để em làm sao biết lần lưu file gần đây nhất là lúc nào
CHi tiết hơn là như thế này : Em muốn khi nào em lưu ( Có thế CTrl + S, hoặc vào File chọn Save, hoặc dùng code , nói chung miển sao là lưu ) thì tại ô A1 của Sheet1 sẽ hiện thời gian lưu ví dụ ( Lưu gần đây 23/3/2016 12:50 ). rất mong mọi người giúp đở. Em xin cảm ơn !

 

[duongcga]

Chèn vào ThisWorkbook nhé

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Range("A1").Value = Now
End Sub

 

[minhtuan55]

Chèn vào ThisWorkbook nhé

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Range("A1").Value = Now
End Sub

Cảm ơn anh em làm được rồi hihi