Controlar en una hoja oculta de un libro la fecha y la hora en la que se modifica el libro.
Buenos días y gracias anticipadas por su contestación.
El objetivo es crear en una hoja oculta de un libro un log de en que fecha y a que hora se modifica cualquier hoja del libro. Cada vez que se modifica el libro pondra en la celda a1,a2....la fecha y en la b1,b2... La hora.
Si ello no fuera posible podría valer cuando se cierra el libro, aunque esto podría desvirtuar el objetivo ya que marcaría cuando solo se ve sin modificar nada.
1 respuesta
Te mando mi solución:
-Elegimos una hoja determinada para anotar la fecha y la hora, en mi caso es la hoja3 y la dejamos oculta
-Ahora en el editor de visual basic haz doble click en el objeto ThisWorkbook y en la pantalla blanca de la derecha copia esta macro:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets("hoja3").Range("a65000").End(xlUp).Offset(1, 0).Value = Date & "--" & Time
Application.EnableEvents = True
End SubDe esta manera cada vez que se produzca un cambio en cualquiera de las otras hojas quedará registrado en la hoja3 que está oculta.
No olvides finalizar la consulta
Incluso lo podemos adornar un poquito más anotando la hoja en la que se ha producido la modificación, sería así:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets("hoja3").Range("a65000").End(xlUp).Offset(1, 0).Value = Date & "--" & Time & " en la hoja: " & ActiveSheet.Name
1 Application.EnableEvents = True
End Sub
