Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Ofimática (http://www.forosdelweb.com/f90/)
-   -   Guardar cambios automáticamente, sin preguntar (http://www.forosdelweb.com/f90/guardar-cambios-automaticamente-sin-preguntar-571355/)

StephenQ 01/04/2008 07:07

Guardar cambios automáticamente, sin preguntar
 
Buenos días!! :aplauso:

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. :si:

Gracias. :-)

3pies 01/04/2008 07:21

Re: Guardar cambios automáticamente, sin preguntar
 
Te remito a una entrada de mi blog: Omitir avisos al ejecutar un macro

Salu2

StephenQ 01/04/2008 07:36

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

3pies 01/04/2008 07:46

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:

Sub Macro1()
Application.DisplayAlerts = False
Range("A1").Select
ActiveCell = "Prueba"
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\ejemplillo.xls"
End Sub

Salu2

StephenQ 01/04/2008 07:56

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


La zona horaria es GMT -6. Ahora son las 01:25.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.