Opciones para cerrar

[ColdGeorge]

Hola amigos

Estoy buscando ofrecer al usuario opciones para 1) cancelar el proceso, 2) cerrar su archivo y conservar Excel abierto, y 3) cerrar su archivo y Excel, por alguna razón no logro conseguirlo, esto es lo que llevo, cualquier ayuda se agradecerá.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("¿Quieres cerrar el archivo?", vbYesNo, "Por favor confirma") = vbNo Then
    Cancel = True
    Exit Sub
        ElseIf MsgBox("¿Quieres cerrar Excel?", vbYesNo, "Confirma") = vbNo Then
            Cancel = True
            Exit Sub
            Application.ThisWorkbook.Close
                Else
                Application.Quit
End If
End Sub

Saludos, ColdGeorge

 

[ColdGeorge]

Gracias, Eric. Eso sí me hizo reír. Se me había olvidado por completo que Excel hace eso porque nunca cierro un cuaderno así, con tal equis, sino siempre uso Ctrl+W. Bueno, pruebe el siguiente. Me funciona, pero admito que aunque Excel permanece abierto, tengo que usar {tecla de Windows}+{flecha izquierda (o derecho)} para ajustar la ventana principal de Excel porque sale desplegado de manera muy rara.

Private Sub Workbook_BeforeClose(Cancel As Boolean)


    Static s_intCloseCount As Integer


    If s_intCloseCount <> 0 Then Exit Sub


    If MsgBox("¿Quieres cerrar el archivo?", vbYesNo, "Por favor confirma") = vbNo Then
        Cancel = True
        Exit Sub
    End If


    ThisWorkbook.Saved = True
    If MsgBox("¿Quieres cerrar Excel?", vbYesNo, "Confirma") = vbYes Then
        Application.Quit
    Else
        Cancel = True
        Let s_intCloseCount = s_intCloseCount + 1
        ActiveWindow.Close
    End If


End Sub

Hola Greg

Este código realiza lo que busco, y todo se ve muy bien, gracias por tu ayuda, tambien gracias a Eric.

Saludos, ColdGeorge

 

[Greg Truby]

Me alegra que le haya servido. Favor, note que puse una segunda versión que toma en cuenta cuantos cuadernos están visibles y si el usuario tiene otros cuadernos abiertos, ni pregunta si desea cerrar Excel. Solo pregunta al usario en el caso de que tal cuaderno es el único abierto (y visible).

 

[ColdGeorge]

Me alegra que le haya servido. Favor, note que puse una segunda versión que toma en cuenta cuantos cuadernos están visibles y si el usuario tiene otros cuadernos abiertos, ni pregunta si desea cerrar Excel. Solo pregunta al usario en el caso de que tal cuaderno es el único abierto (y visible).

Gracias Greg, lo tomaré en cuenta, saludos.

ColdGeorge