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 3 año.
Categoría: Informática
Experto:  nievesjesus escribió hace 3 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 3 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 3 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, 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
nievesjesus y otros otros especialistas en Informática están preparados para ayudarle

Opiniones de nuestros clientes:

 
 
 
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Gracias! Servicio excelente. Me ha gustado trabajar con los Expertos. Éxito y gracias. Estefanía Chile
  • Muy agradecida. Si lo necesito volveré a utilizar el site. Mari Ramírez San Juan, Puerto Rico
  • El tiempo de respuesta es excepcional, de menos de 6 minutos. La pregunta se respondió con profesionalidad y con un alto grado de compasión. Inés Santander
  • Quedé muy satisfecho con la rapidez y la calidad de los consejos que recibí. Me gustaría añadir que puse en práctica los consejos y que funcionaron la primera vez y siguen haciéndolo. Luis Málaga
  • Es un servicio fantástico y M. Castillo me ayudó muchísimo y me proporcionó algunos sitios web y herramientas estupendos que me permitieron ampliar mis conocimientos sobre la pregunta. ¡Muchas gracias! Esther Sevilla
  • Un servicio estupendo: rápido, eficiente y preciso. ¿Qué más se puede pedir? No tengo palabras para agradecer su ayuda. María Barcelona
 
 
 

Conozca a los expertos:

 
 
 
  • Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.es/uploads/JE/jesemo/2012-2-26_21847_yocarnet.64x64.jpg Avatar de Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.es/uploads/ES/Estigia/2011-10-18_211225_VMNB.64x64.JPG Avatar de Estigia

    Estigia

    Ing. en Electrónica

    Clientes satisfechos:

    1009
    Especializado en HW, SW e Infraestructura de Redes.
  • http://ww2.justanswer.es/uploads/AR/arcangelus/2012-1-3_2523_Jluis.64x64.jpg Avatar de arcangelus

    arcangelus

    Ing. en Sistemas

    Clientes satisfechos:

    428
    Más de 20 años de experiencia en Informatica
  • http://ww2.justanswer.es/uploads/RR/rrubidio/2015-3-16_19381_arnetnuevo.64x64.jpeg Avatar de Rubén Díaz

    Rubén Díaz

    Técnico en computación, informática

    Clientes satisfechos:

    381
    Más de 7 años de experiencia en soporte informático in-situ y remoto, con conocimientos en equipos Windows, Mac, Smartphone y periféricos.
  • http://ww2.justanswer.es/uploads/AL/Albertillo/2012-10-29_21350_newtshirthe.64x64.jpg Avatar de Albertillo

    Albertillo

    Ingeniero Superior en Informática

    Clientes satisfechos:

    23
    Último curso de carrera
  • http://ww2.justanswer.es/uploads/RA/ratonxi/2012-1-3_151146_1.64x64.png Avatar de ratonxi

    ratonxi

    Licenciatura

    Clientes satisfechos:

    13
    Licenciado en Física, expecialidad física computacional.