Puede haber ocasiones en las que desee que su encabezado o pie de página contenga la fecha de la última vez que se guardó su libro. Normalmente, esta no es información que pueda configurar en Excel. Sin embargo, puede utilizar la siguiente macro para forzar la información en el lugar adecuado:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

Hay una serie de elementos a tener en cuenta en esta macro. En primer lugar, intenta determinar la última fecha (y hora) en que se guardó el libro. Si esa información no se puede determinar, extrae la fecha en que se creó. Por último, si no se puede encontrar, establece el pie de página en «No guardado».

Tenga en cuenta que en esta macro se gestiona algún error. El motivo es que Excel devolverá un error si no se establece una propiedad de documento en particular (BuiltinDocumentProperty en este caso). El error debe ser interceptado y manejado, lo que se hace aquí.

Debe tener en cuenta que esta macro, una vez ejecutada, establecerá el pie de página izquierdo con la información deseada. Esa información no volverá a cambiar hasta que vuelva a ejecutar la macro. Por lo tanto, si siempre desea una fecha actualizada en el pie de página, debe ejecutar la macro periódicamente (tal vez justo antes de imprimir) o configurarla para que se ejecute cada vez que abra su documento.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2055) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.