01-abr-2008, 07:07
|
#1 (permalink) |
 
Fecha de Ingreso: marzo-2007
Mensajes: 80
|
Guardar cambios automáticamente, sin preguntar
 Estoy ejecutando unas macros cuando se abre el libro y cuando se cierra lo que quiero es que cuando se cierre el libro y ejecute mi macro, los cambios que le he realizado se guarden automáticamente sin que salga ese molesto cuadro que dice: "Desea guardar los cambios si/no", agradezco cualquier comentario.  Gracias. 
__________________
StephenQ |
|
|
|
01-abr-2008, 07:36
|
#3 (permalink) |
|
Fecha de Ingreso: marzo-2007
Mensajes: 80
|
Re: Guardar cambios automáticamente, sin preguntar
Hola 3Pies!!!
Application.DisplayAlerts = False, ésta instrucción ya la había utilizado y no funcionó como lo quería, lo que deseo es que cuando salga este cuadro desde código se pueda confirmar y que siempre la respuesta sea "si" osea que nunca le pregunte al usuario si desea guardar los cambios, no sé si esto es posible pero agradezco tu comentario
__________________
StephenQ |
|
|
|
|
01-abr-2008, 07:46
|
#4 (permalink) |
|
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.855
|
Re: Guardar cambios automáticamente, sin preguntar
Pues de cada 10 veces, debería funcionarte 10. La tienes que poner antes de guardar el fichero.
Si no te funciona, creo que no vas a poder conseguir lo que pretendes, pues desde el momento en el que se presenta en pantalla el formulario para responder Si/No, lo que se pretende es que el usuario interactúe con el mismo. No creo que se pueda automatizar una respuesta, pues ya no es el macro quien tiene el control, sino que es el cliente quien debe responder, y el macro seguirá actuando en función de la respuesta. Prueba este macro en un libro nuevo:
Código:
Salu2Sub Macro1()
Application.DisplayAlerts = False
Range("A1").Select
ActiveCell = "Prueba"
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\ejemplillo.xls"
End Sub
|
|
|
|
|
01-abr-2008, 07:56
|
#5 (permalink) |
|
Fecha de Ingreso: marzo-2007
Mensajes: 80
|
Re: Guardar cambios automáticamente, sin preguntar
Como te dije no funciona como yo lo quiero, pero ya encontre como hacerlo y es muy parecido al código que me enviaste, muchas gracias por los comentarios, por si alguien tiene la misma duda o algo por el estilo lo que encontre fue este código:
Sub Auto_Close() 'Mis intrucciones ThisWorkbook.Save End Sub Y este se escribe en el ThisWorkbook Un saludo
__________________
StephenQ |
|
|
|
Mode Lineal
