OsmaniPititi publicó en la clase Evento Workbook_BeforeClose: Registrar Fecha de Cierre hace 2 horas
Buenos Dias
A continuacion pongo en consideracion esta variante de codigo , pues en el del ejemplo si el usuario escoge cancelar el cierre , ya queda registrado previamente el cierre en la celda , cosa esta que en realidad el usuario cancelo.
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Hoja1")
Dim UltimaFila As Long
If MsgBox("Desea cerrar el archivo?", vbYesNo + vbQuestion, "Confirmar cierre") = vbNo Then
Cancel = True
Else
UltimaFila = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
ws.Cells(UltimaFila, 2).Value = "El archivo fue cerrado en:" & Now
End If
A continuacion pongo en consideracion esta variante de codigo , pues en el del ejemplo si el usuario escoge cancelar el cierre , ya queda registrado previamente el cierre en la celda , cosa esta que en realidad el usuario cancelo.
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Hoja1")
Dim UltimaFila As Long
If MsgBox("Desea cerrar el archivo?", vbYesNo + vbQuestion, "Confirmar cierre") = vbNo Then
Cancel = True
Else
UltimaFila = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
ws.Cells(UltimaFila, 2).Value = "El archivo fue cerrado en:" & Now
End If
Respuestas