saludos y mil gracias.
En calidad de mientras y salga otra opcion que pueda salir ...
Puedes usar la siguiente macro en la hoja THISWORKBOOK. Copia y pega
lo siguiente
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If RegistrarAutor() = False Then Cancel = True
End Sub
Private Function RegistrarAutor() As Boolean
ActiveSheet.Unprotect Password
RegistrarAutor = True
If RegistrarAutor Then
Worksheets("Tu Hoja").Cells(fila + 23, 22).Value =
Date
Worksheets("Tu Hoja").Cells(fila + 24, 22).Value =
Time
ActiveSheet.Protect Password
End If
End Function
"Tu Hoja" cambiala a el nombre de la hoja de tu libro donde
aparecera.
La (fila + 23, 22), significa que se escribira en el renglon 23 de
la columna V,
(V23) de la hoja "Tu Hoja". puedes cambiar al lugar deseado.
La funcion de Desproteger y Proteger la hoja es opcional, eso es
por si tienes protegida la celda en la hoja,
ahi esta sin contrasena, para agregarsela deberas de usar la siguiente
forma
ActiveSheet.Protect Password:="Tu clave"
Envia dudas y/o comentarios.
"Francisco Cordero" <XXXcha...@XXXtelefonicaXXX.net> escribió en el
mensaje de noticias news:OZU%23O6fgJ...@TK2MSFTNGP03.phx.gbl...
Sr Pepe,
Esta respondiendo en esta discusion otro tema ?
Porque la verdad No entiendo !!
A que se refiere al decir " qué tal si lees la ayuda sobre control de
cambios?", No esta pidiendo hacer notar : resaltar o colorear, etc
los cambios hechos en el programa. No, solo pide "... mediante
alguna fórmula o algo hacer que en una celda apareciese la fecha de
modificación de un libro excel ... ", y eso es precisamente lo que va
ha obtener con el MACRO enviado.
Ademas aclaro al iniciar el dialogo "En calidad de mientras y salga
otra opcion que pueda salir ... ", en la cual esperaba que usted u
otra persona sugeriera algo.
No entiendo, podria aclarar ?... "Lo que sugieres no es una gran idea.
"
Se que puedo aprender mas si me aclara las dudas.
Su amigo Corando.
Fecha y hora de creación/modificación de un fichero (cerrado): FileDateTime("Clientes.xls")
Saludos desde Tenerife.
********************************
"Francisco Cordero" <XXXcha...@XXXtelefonicaXXX.net> escribió en el mensaje
news:OZU%23O6fgJ...@TK2MSFTNGP03.phx.gbl...
Tengo el mismo problema que se comenta anteriormente, tengo un archivo en excel donde quiero que quede registrada en su hoja la fecha de la ultima modificaci?n,es decir si guardo cambios hoy 29 de julio, y abra el archivo nuevamente sin cambios, siga diciendo 29 de julio, de lo contrario si guardo cambios entonces modifique la fecha a la actual.
Agradezco su ayuda.
AnSanVal wrote:
Re: Fecha de modificaci?n
02-Feb-09
Tomado recientemente de este mismo foro:
Fecha y hora de creaci?n/modificaci?n de un fichero (cerrado): FileDateTime("Clientes.xls")
Saludos desde Tenerife.
********************************
"Francisco Cordero" <XXXcha...@XXXtelefonicaXXX.net> escribi? en el mensaje
news:OZU%23O6fgJ...@TK2MSFTNGP03.phx.gbl...
Previous Posts In This Thread:
On Thursday, January 29, 2009 5:44 AM
Francisco Cordero wrote:
Fecha de modificaci?n
Hola amigos, ser?a posible mediante alguna f?rmula o algo hacer que en una
celda apareciese la fecha de modificaci?n de un libro excel, de forma que si
lo modifico por ejemplo el 10 de enero, y vuelvo a abrir ese libro el 15 y
no modifico nada siga siendo el d?a 10 pero si hay algun cambio se ponga
como d?a 15?
saludos y mil gracias.
On Monday, February 02, 2009 7:49 PM
AnSanVal wrote:
Re: Fecha de modificaci?n
Tomado recientemente de este mismo foro:
Fecha y hora de creaci?n/modificaci?n de un fichero (cerrado): FileDateTime("Clientes.xls")
Saludos desde Tenerife.
********************************
"Francisco Cordero" <XXXcha...@XXXtelefonicaXXX.net> escribi? en el mensaje
news:OZU%23O6fgJ...@TK2MSFTNGP03.phx.gbl...
Submitted via EggHeadCafe - Software Developer Portal of Choice
Custom Favorites Web Site with MongoDb and NoRM
http://www.eggheadcafe.com/tutorials/aspnet/7fbc7a01-5d30-4cd3-b373-51d4a0e1afa8/custom-favorites-web-site-with-mongodb-and-norm.aspx
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("Hoja1").Range("A1").Value = Now()
ActiveWorkbook.Save
End Sub
Cambia el nombre de la hoja y el rango de la celda donde guarda fecha y hora
de la última modificación a tu gusto.
Saludos.-
"Monica Velez" <move...@msn.com> escribió en el mensaje de noticias
news:2010729164...@msn.com...