Code VBA đánh dấu Cell bị chỉnh sửa dữ liệu (1 người xem)

[nguyendinhtutw]

Dear các bạn,
Mình có một trang tính và có nhiều người có thể chỉnh sửa, vì trang có rất nhiều dữ liệu và nếu như bị chỉnh sửa chỗ nào đó thì khó có thể biết được. Mình đã thử dùng tính năng Track change nhưng với bảng tính khổng lồ với nhiều cột và hàng như file của mình thì việc nhận ra Cell bị chỉnh sửa lẫn trong đó thì rất khó.
Vì vậy mình muốn những Cell bị chỉnh sửa đó sẽ được tô màu và insert comment ghi ngày chỉnh sửa. Mình có đính kèm threat này một file mẫu, các bạn giúp mình 1 đoạn code có thể giải quyết vấn đề trên được không?
Cảm ơn các bạn.

 

[nguyendinhtutw]

Mình đã tìm được đoạn code highlight và add comment như dưới đây, bây giờ chỉ còn vấn đề tồn tại nữa là làm sao cho hết highlight và delete comment khi hết khoảng thời gian mình muốn:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.Color = RGB(181, 244, 0)
If HighlightedCells = "" Then
HighlightedCells = Target.Address
Else
HighlightedCells = HighlightedCells & "," & Target.Address
End If
Dim OldComment As String, NewComment As String, objCell As Range
If Target.Cells.Count > 1 Then Exit Sub
NewComment = "Changed on " & Now() & " by " & Application.UserName
If Target.Comment Is Nothing Then
Target.AddComment NewComment
Else
OldComment = Target.Comment.Text
Target.Comment.Text NewComment & vbLf & OldComment
End If
End Sub