Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio. Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a nievesjesus
nievesjesus
nievesjesus, Formación profesional
Categoría: Informática
Clientes satisfechos: 4
Experiencia:  Ingenieria en Sistemas. Diplomado en Desarrollo Web, Diplomado en Artes Graficas, Diplomado en Arquitectura de la Informacion
60915133
Escriba su pregunta sobre Informática aquí...
nievesjesus está en línea ahora

Hola buenos días Cuando intento cerrar un libro en excel mediante

Pregunta del cliente:

Hola buenos días
Cuando intento cerrar un libro en excel mediante una macro con un botón cerrar, me da el siguiente error:
Error 1004: metodo Close del objeto _Workbook

Esta es la macro que sale del formulario

Private Sub cmdSalir_Click()

a = MsgBox("Desea Guardar los cambios", 3, "Salir de Portfolio")
If a = 6 Then
ActiveWorkbook.Save
ActiveWorkbook.Close False
Application.Quit
ElseIf a = 7 Then
ActiveWorkbook.Close False
Application.Quit
Else
Exit Sub
End If
End Sub
Enviada: hace 4 año.
Categoría: Informática
Experto:  nievesjesus escribió hace 4 año.

nievesjesus :

Buenos dias, si quieres pasame el archivo en el cual estas trabajando para revisar el problema a detalle. Saludos

Customer:

Hola voy a tratar de pasarlo ya que es muy grande

Customer:

http://www.mediafire.com/download/ax8nbfnxf2997ii/Portfolio_08-2013.rar

Customer:

esta en ese link

nievesjesus :

Buenas noches amigo, encontre el problema.

Experto:  nievesjesus escribió hace 4 año.
Nuestro Chat ha terminado, pero usted todavía puede continuar formulándome preguntas aquí hasta que obtenga su respuesta 100% satisfactoria. Vuelva a esta página para ver nuestra conversación.

¿Siguiente paso?

Si ha terminado, por favor, valore la respuesta. O bien, puede responderme usando la caja ubicada más abajo.
Experto:  nievesjesus escribió hace 4 año.
Buenas noches amigo, encontre el problema:

Pasa lo siguiente, tu quieres cerrar la aplicacion sin que se muestre el cuadro de dialogo predeterminado del sistema y para eso estas usando la siguiente funcion:

ActiveWorkbook.Close False

Esta es la que esta causando el problema. Entonces la solucion es usar una alternativa.

Lo que vas hacer es marcar el archivo como si ya se hubiese guardado y asi no muestra el cuadro de dialogo, atencion solo vas a mostrarlo COMO GUARDADO, esto no significa que lo guardaste entonces reemplaza la linea de codigo que tienes arriba por esta:

ThisWorkbook.Saved = True

Es decir en lugar de ActiveWorkbook.Close False usa ThisWorkbook.Saved = True
Por ejemplo:
If a = 6 Then
ActiveWorkbook.Save
' ActiveWorkbook.Close False
ThisWorkbook.Saved = True
Application.Quit

ElseIf a = 7 Then
' ActiveWorkbook.Close False
ThisWorkbook.Saved = True
Application.Quit
Else

eso dentro del bloque de codigo que va, de todas formas aqui te dejo el bloque de codigo completo.


Private Sub cmdSalir_Click()
a = MsgBox("Desea Guardar los cambios", 3, "Salir de Portfolio")
If a = 6 Then
ActiveWorkbook.Save
' ActiveWorkbook.Close False
ThisWorkbook.Saved = True
Application.Quit
ElseIf a = 7 Then
' ActiveWorkbook.Close False
ThisWorkbook.Saved = True
Else
Exit Sub
End If
End Sub

nievesjesus y otros otros especialistas en Informática están preparados para ayudarle