如何在不共享工作簿的情况下跟踪更改？

Private Sub Worksheet_Change(ByVal Target As Range) Updateby Extendoffice Const xRg As String = "A1:Z1000" Dim strOld As String Dim strNew As String Dim strCmt As String Dim xLen As Long With Target(1) If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub strNew = .Text Application.EnableEvents = False Application.Undo strOld = .Text .Value = strNew Application.EnableEvents = True strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _ Application.UserName & Chr(10) & "Previous Text :- " & strOld If Target(1).Comment Is Nothing Then .AddComment Else xLen = Len(.Comment.Shape.TextFrame.Characters.Text) End If With .Comment.Shape.TextFrame .AutoSize = True .Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt End With End With End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！