Ú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--

Excelente!,
Muchas Gracias!
En verdad funcionan ambos códigos perfectos, pero ahora me surgió una duda
mas...:
que cambios debo realizar en el código (usé el 2) para que tenga el mismo
formato de mi archivo:
Fuente: Trebuchet MS, negrita
Tamaño: 8
Perdón por las molestias, pero en verdad me ha servido de mucho esta
información que me acabas de proporcionar.

Nuevamente muchas gracias!
Isrrael
"KL" wrote in message
news:

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--

Que tal.

Para que aparezca en mismo tipo de fuente que especificas, reemplaza la
siguiente línea de código:

"Fecha ultima modificacioon: " _
por :
"&""Trebuchet MS,Negrita""&8Fecha ultima modificacioon: " _


<!>
A sus órdenes.
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Isrrael" <pcpersonal> escribió en el mensaje
news:

Excelente!,
Muchas Gracias!
En verdad funcionan ambos códigos perfectos, pero ahora me surgió una duda
mas...:
que cambios debo realizar en el código (usé el 2) para que tenga el mismo
formato de mi archivo:
Fuente: Trebuchet MS, negrita
Tamaño: 8
Perdón por las molestias, pero en verdad me ha servido de mucho esta
información que me acabas de proporcionar.

Nuevamente muchas gracias!
Isrrael
"KL" wrote in message
news:

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--

Gracias Sergio. Isrrael, tambien corrige la ortografia de la misma linea
"modificacion" - no "modificacioon" - es lo q pasa cuando se anda con
prisas.

Saludos,
KL

"Sergio A Campos H" wrote in message
news:

Que tal.

Para que aparezca en mismo tipo de fuente que especificas, reemplaza la
siguiente línea de código:

"Fecha ultima modificacioon: " _
por :
"&""Trebuchet MS,Negrita""&8Fecha ultima modificacioon: " _


<!>
A sus órdenes.
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Isrrael" <pcpersonal> escribió en el mensaje
news:

Excelente!,
Muchas Gracias!
En verdad funcionan ambos códigos perfectos, pero ahora me surgió una
duda mas...:
que cambios debo realizar en el código (usé el 2) para que tenga el mismo
formato de mi archivo:
Fuente: Trebuchet MS, negrita
Tamaño: 8
Perdón por las molestias, pero en verdad me ha servido de mucho esta
información que me acabas de proporcionar.

Nuevamente muchas gracias!
Isrrael
"KL" wrote in message
news:

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--

Hola "KL":

He puesto tu codigo, el 2º para ser mas exacto y trabaja muy bien pero tengo
una duda ... ¿Por que me da la hora de tres minutos antes de que la ejecuto???

Miro el reloj y son las 11:47 y pone en el pie 11:44

No me lo explico. Se te ocurre algo?? es que el sistema tiene otro reloj ??

Raul_S

"KL" escribió:

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--