Hola tengo un libro que al abrirlo salta un userform y al mismo momento el libro se oculta, pero al cerrar el userform el libro aparentemente se cierra, pero lo mas raro es que queda oculto pero abierto me doy cuenta cuando abro el administrador de tarea. Alguien podrá ayudarme

Este es la instrucción para cerrar

Private Sub CommandButton8_Click()
Dim sino As String
sino = MsgBox("Estás seguro de cerrar la Aplicacion?", vbYesNo + vbQuestion, "CONFIRMA")
If sino <> vbYes Then Exit Sub
MsgBox "Gracias por usar el sistema, hasta la proxima"
Application.ScreenUpdating = False
        Set h = Sheets("Usuarios")
        u = h.Range("A" & Rows.Count).End(xlUp).Row
        h.Cells(u, "C").Formula = VBA.Time
Unload Me
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = False
End Sub

 

Hola @jose lopez contreras

Con la orden "ActiveWorkbook.Close", VBA cierra el libro. Si se ejecuta, debiera cumplir con dicha orden.

Puse tu código en un libro y lo cierra normalmente. Puedes darte cuenta en la pestaña "VISTA", con los botones "OCULTAR" y/o "MOSTRAR".

Quizás puedes modificar la última orden de tu código: debe ser "TRUE" y también debiera estar encima de la orden de cerrar el libro.

Application.ScreenUpdating = True
ActiveWorkbook.Close

Suerte!

Editado el el 24 de abril6 años por tierra_pampa

@tierra_pampa aplique tu comentario pero sigue igual, anexo archivo para su analisis.

https://mega.nz/#!qE5lFYII!xQy5xaL-bJu8FnrlX4w9__GDzdTJGtCnx1IU48lQIHo

Nota:

Usuario: ADMINISTRADOR

Pass: TORRES

Hola @jose lopez contreras

Termino de probarlo y funciona correctamente.

Por favor, prueba el formulario con ese único libro abierto. Te darás cuenta enseguida si lo cierra o no (también puedes controlar la hora de última grabación).

Suerte!

Hace 7 minutos , tierra_pampa dijo:

Hola @jose lopez contreras

Termino de probarlo y funciona correctamente.

Por favor, prueba el formulario con ese único libro abierto. Te darás cuenta enseguida si lo cierra o no (también puedes controlar la hora de última grabación).

Suerte!

Cheque que no hubiera ningún libro abierto, abrí mi archivo  y lo cerré y mira sigue abierto según imagen. la verdad esta raro

https://mega.nz/#!rUo3USyK!Pg8nPUlc5fTo2DThEY8K5qYKTgOu3dwhWK9MFPUcAt8

Hola

Como bien ya adelanto @tierra_pampa si hay más archivos de Excel abiertos, al usar "ActiveWorkBook", cierras el activo, no el que necesariamente quieres; segundo, en la imagen muestras el Excel abierto (pero oculto), si desde el inicio ese era el probelma (mencionaste que el libro estaba abierto, no "solo" el Excel) pues tú cierras el libro no el mismo Excel (Application.Quit).

Abraham Valencia

Hace 9 minutos , avalencia dijo:

Hola

Como bien ya adelanto @tierra_pampa si hay más archivos de Excel abiertos, al usar "ActiveWorkBook", cierras el activo, no el que necesariamente quieres; segundo, en la imagen muestras el Excel abierto (pero oculto), si desde el inicio ese era el probelma (mencionaste que el libro estaba abierto, no "solo" el Excel) pues tú cierras el libro no el mismo Excel (Application.Quit).

Abraham Valencia

Mil gracias a ti y todos los que colaboraron, la solución quedo así.

Private Sub Userform_Terminate()
    If Application.Workbooks.Count=1 Then
        Application.Quit
    Else
        ThisWorkbook.Close True
    End If    
End Sub