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
a


×
×
  • Create New...

Important Information

Privacy Policy