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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.