¿Cómo realizar un seguimiento de los cambios sin compartir el libro de trabajo?
Normalmente, cuando aplica la función Control de cambios en Excel, el libro de trabajo se compartirá al mismo tiempo, esto será molesto porque algunas de las funciones de Excel estarán deshabilitadas. ¿Cómo podría realizar un seguimiento de los cambios sin compartir el libro de trabajo? Aquí, te recomendaré un código VBA.
Realice un seguimiento de los cambios sin compartir el libro de trabajo con el código VBA
Convertir texto en tabla en Outlook
No hay una forma directa de resolver este problema, pero puede aplicar un código VBA flexible para resolverlo, haga lo siguiente:
1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea realizar un seguimiento de las celdas cambiadas y elija Ver código en el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el espacio en blanco Módulo:
Código de VBA: realice un seguimiento de los cambios sin compartir el libro de trabajo:
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
Note: En el código anterior, A1: Z1000 es el rango de datos del que desea realizar un seguimiento de los cambios.
2. Luego guarde y cierre esta ventana de código, ahora, cuando cambie los valores en cualquier celda dentro del rango especificado que estableció en el código, las celdas serán rastreadas y el libro de trabajo no se compartirá. Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!