Última Fecha de modificación del libro en pie de página

Hola Isrrael,

"Isrrael" wrote in message...

Quizás parezca un poco tonto lo que preguntaré,...

Alguien dijo: "La unica pregunta tonta es la q no se ha hecho."

pero no encuentro la forma de hacer que aparezca en el pie de pagina la
fecha y hora en que se modificó en archivo por última vez. Intento
ingresar formulas, pero no me da resultado...

Pues yo tampoco. Y creo q al menos en Excel97 y 2000 no existe esta
funcionalidad. Lo unico q se me ocurre (sorpresa!!!) es uno de los dos
codigos VBA de abajo (prefiero el primero).
Prueba depositarlo en el modulo EsteLibro (ThisWorkbook), guardar el
fichero, mirar la fecha en el pie de las paginas, luego volver a guardar y
comprobar si la hora ha cambiado.

Saludos,
KL

'Inicio Codigo 1--
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim hoja As Worksheet
For Each hoja In ThisWorkbook.Worksheets
hoja.PageSetup.RightFooter = _
"Fecha ultima modificacioon: " _
& Now
Next hoja
End Sub
'Fin Codigo 1--

'Inicio Codigo 2--
Private Sub Workbook_Open()
Dim hoja As Worksheet
With ThisWorkbook
On Error Resume Next
FechaUltimoCambio = _
.BuiltinDocumentProperties("Last save time")
On Error GoTo 0
If FechaUltimoCambio = "" Then Exit Sub
For Each hoja In .Worksheets
hoja.PageSetup.RightFooter = _
"Fecha ultima modificacioon: " _
& FechaUltimoCambio
Next hoja
End With
End Sub
'Fin Codigo 2--