Jump to content

QUITAR MENSAJE DE CIERRE DE LA APLICACION


Go to solution Solved by Gerson Pineda,

Recommended Posts

Hola compañeros,

Cuál es el método que me permite quitar la ventana de alerta al cerrar un libro (ver imagen adjunta)?

Estoy probando con este código, pero no me funciona...

   guardar = MsgBox(Prompt:="Gracias por usar la aplicación ofimática, " & tbNombre & "." & vbCr & _
                            "¿Desea guardar los cambios antes de salir?", _
                    Buttons:=vbYesNo + vbCritical, _
                    Title:="                  SALIR DE LA APLICACION OFIMATICA")
   If guardar = vbYes Then
      ActiveWorkbook.Save
   Else
      Application.DisplayAlerts = False   ' No mostramos la ventana de alerta para guardar manualmente los últimos
                                          ' cambios añadidos al libro de la aplicación ofimática...
   End If

Gracias.

imagen.jpg

Link to post
Share on other sites
Posted (edited)

 

Hace 17 horas, Gerson Pineda dijo:

Hola

Prueba usar esta linea


ActiveWorkbook.Close savechanges:=True

o 

ActiveWorkbook.Close 1

 

Saludos 

Hola @Gerson Pineda,

Gracias por tu respuesta. Esa opción me cierra el libro, pero no la aplicación.

Me gustaría que cerrara la aplicación al completo. No sólo el libro.

Es algún método de la clase application, pero no sé cuál...

Edited by paikerr
Link to post
Share on other sites
Hace 7 minutos , Gerson Pineda dijo:

Despues de ese paso:


Application.Quit

 

Saludos 

No. No funcionaría. Ya lo probé y no funciona, porque si te das cuenta cerramos el libro que ejecuta la macro, y por tanto ésta deja de ejecutarse.

Link to post
Share on other sites
  • Solution

Disculpa tienes razón, entonces deja .Save, pero incluye al principio y fin del procedimiento

Application.DisplayAlerts = False
Application.EnableEvents = False

todo tu codigo


Application.DisplayAlerts = true
Application.EnableEvents = true

 

Saludos

Link to post
Share on other sites

Hola de nuevo @Gerson Pineda,

Revisando la documentación de Windows VBA, dice algo así como que después del método "Application.DisplayAlerts = False" debe ir acompañado de "Application.Quit" porque de lo contrario, si se mostraría la ventana de alerta.

https://docs.microsoft.com/es-es/office/vba/api/excel.application.quit

Sería algo así...
 

Dim guardar as Byte

guardar = MsgBox("¿Desea guardar los cambios antes de salir?", vbYesNo)

if cerrar = vbNo Then

	With Application

		.DisplayAlerts = False

		.Quit

	end with

else

		ActiveWorkbook.Saved
		Application.Quit

end if

Esto es para el evento "Private Sub Workbook_BeforeClose(Cancel As Boolean)"...

Link to post
Share on other sites

De todos modos, echaré un ojo a tu código...

Hace 22 minutos , Gerson Pineda dijo:

 


Application.DisplayAlerts = False
Application.EnableEvents = False

todo tu codigo


Application.DisplayAlerts = true
Application.EnableEvents = true

 

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Hola, tengo un calendario con un scroll por meses, La idea es que haya un calendario por cada aula, me explico con un ejemplo; imaginemos que en el "aula 1" el jueves 8-10 hay una clase de "MI" de 10-14 (marcada en naranja) y como estoy en el aula 1 al darle a "FILTRAR" debería aparecerme, pero en el momento que yo cambie en el selector de aulas a "aula2" debería desaparecer la clase de "MI" del día 8-10 y aparecer "Master uñas" de 9-14 y así con cualquier fecha de la barra de desplazamiento y con cada aula. Esta explicado también en el documento. he intentado varias cosas pero no hay manera, socorro!!! Gracias de antemano Calendario_aulas.xlsm
    • Buenos días, tengo un problema en este Excel, yo hacia el pedido con normalidad le daba a guardar y se me guardaba directamente en la hoja de listado, y automáticamente se me cambiaba el numero de pedido, ahora al darle a guardar me sale un error y no se me actualiza directamente el numero, y al guardarse en listado me sale REF. SI ME PODRIAN AYUDAR, ES ALGO QUE ME URGE. GRACIAS!! PEDIDOS 2019.xlsm
    • Alguien por favor que me ayude con esto, he intentado de cierta forma pero de verdad que no me sale... si es que se necesita mas explicación que creo que sí me avisan pero ayudaaaa...
    • Muchas gracias por tu ayuda! Me viene muy muy bien tu fórmula. Saludos,
    • Hola! Gracias por tu respuesta, pero lo que busco es que cuando pulse un botón además de sustituir el texto en el archivo word, ya predefinido en la macro en el excel, copie solo la gráfica de una hoja que le indiquemos y la pegue en un espacio determinado del archivo word... Tengo el siguiente código pero no me funciona.. (no está incluido en el excel anterior) Sheet("grafica1").Shapes(1).CopyPicture   Paragraphs(.Paragraphs.Count).Range.Start).Select Selection.Collapse Direction:=wdCollapseEnd Paste Gracias igualmente por tu ayuda! Saludos,
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy