Bloquear Btn Cerrar (X) del Excel

[Pablus00]

Hola Amigos, como andan?, quisiera saber si es posible bloquear el boton de cerrar Excel, asi como se puede hacerlo en los formulario, la finalidad es que se salga de programa con un boton determinado que ademas ejecute otras funciones antes de salir. En mi caso particular podria hacerlo sin usar la X, pero cuando se trata de un empleado, tenes que bloquearselo para que no lo use por costumbre , saludos

[3pies]

Hola, prueba esto:

Código:

Private Sub UserForm_QueryClose(Cancel As Integer, ModoCerrar As Integer)
    'Evita que el usuario cierre con el cuadro de diálogo Cerrar
    'de la barra de título (crucecita: X) del formulario activo
    If ModoCerrar <> 1 Then Cancel = 1
End Sub

Salu2

[mrocf]

Observa este código:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    MsgBox "Modo de cierre no permitido..."
End Sub

Debe ubicarse -no en un módulo- sino en el objeto "EsteLibro" (ó "ThisBook" en la versión inglés).

El código:
a) impide que cierres el libro mediante un clic en "X";
b) impide que cierres el libro mediante: Archivo ---> Cerrar
c) impide que cierres el EXCEL mediante un clic en "X"; e
d) impide que cierres el EXCEL mediante; Archivo ---> Salir

Saludos

[3pies]

No me había fijado que preguntabas como impedir cerrar la aplicación. Pensaba que te referías a un formulario cualquiera.

Salu2

[mrocf]

Pablus00 : ¿ te sirvieron las sugerencias dadas ?...

[Pablus00]

Perdon por la demora, y desde ya muy agradecido por las ayudas brindadas, no pude sentarme con mi amigo "el codigo" por que me llenaron de laburo estos dias, prometo testearlo mañana y les cuento ;)

[Pablus00]

Funciona 10 puntos, gracias por la ayuda, el ejemplo de mrocf es el que buscaba :D

[mrocf]

¡ Qué bueno que te haya sido útil !...
Hasta la próxima.

[Granduke]

Iniciado por mrocf

Observa este código:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    MsgBox "Modo de cierre no permitido..."
End Sub

Debe ubicarse -no en un módulo- sino en el objeto "EsteLibro" (ó "ThisBook" en la versión inglés).

El código:
a) impide que cierres el libro mediante un clic en "X";
b) impide que cierres el libro mediante: Archivo ---> Cerrar
c) impide que cierres el EXCEL mediante un clic en "X"; e
d) impide que cierres el EXCEL mediante; Archivo ---> Salir

Saludos

Hola:

Buscando información para hacer una macro para salir de excel encontré esta solución, pero mi problema es que he creado un botón para GUARDAR Y SALIR y cuando aplico la solución expuesta tampoco me deja salir. ¿ Que código debería de poner? Yo intento cerrar la aplicación con este código:

Sub GUARDAR_SALIR()
ActiveWorkbook.Save
Application.QUIT
End Sub

Espero vuestra ayuda.

Gracias.

[yenay]

Sub GUARDAR_SALIR()
ActiveWorkbook.Save
Application.QUIT
End Sub
Gracias.

Prueba así a ver qué tal:

Sub GUARDAR_SALIR()
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

[Granduke]

Gracias por la respuesta, pero tampoco funciona... bueno, casi...

Lo que hace cuando presiono GUARDAR Y SALIR, es que me aparece el Mensaje que he escrito para advertir que no se puede cerrar desde la X y cuando presiono en ACEPTAR en ese mensaje entonces si cierra Excel.

Lo que me gustaría es que el mensaje solo saliese cuando se intenta cerrar desde la X y cuando presione el boton que yo he creado como GUARDAR Y SALIR no apareciese la advertencia y se cerrase directamente Excel.

Gracias de nuevo.

[mrocf]

Hola! Granduke. En un módulo "común" incorpora lo siguiente:

Código:

Public Cierre As String

Sub CerrarArchivo()
  Cierre = "SI"
  ActiveWorkbook.Close SaveChanges:=True
End Sub 

Por su parte, en el módulo del libro (ThisWorkbook) debes colocar:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Cierre <> "SI" Then
    Cancel = True
    MsgBox "Modo de cierre no permitido..."
  End If
End Sub 

La idea es que para cerrar tu libro, deberás ejecutar la macro CerrarArchivo antes indicada.

Esa macro adjudica a la variable "Cierre" el valor "SI" (es el único lugar del proyecto donde eso se hace).
Como esa variable es "Pública" (por Public Cierre As String), al llegar a "Workbook_BeforeClose" el If - End If no se verifica, y el libro se cierra normalmente.

Espero que te sirva la idea.
Saludos, Cacho.

[Granduke]

Iniciado por mrocf

Hola! Granduke. En un módulo "común" incorpora lo siguiente:

Código:

Public Cierre As String

Sub CerrarArchivo()
  Cierre = "SI"
  ActiveWorkbook.Close SaveChanges:=True
End Sub 

Por su parte, en el módulo del libro (ThisWorkbook) debes colocar:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Cierre <> "SI" Then
    Cancel = True
    MsgBox "Modo de cierre no permitido..."
  End If
End Sub 

La idea es que para cerrar tu libro, deberás ejecutar la macro CerrarArchivo antes indicada.

Esa macro adjudica a la variable "Cierre" el valor "SI" (es el único lugar del proyecto donde eso se hace).
Como esa variable es "Pública" (por Public Cierre As String), al llegar a "Workbook_BeforeClose" el If - End If no se verifica, y el libro se cierra normalmente.

Espero que te sirva la idea.
Saludos, Cacho.

PERFECTO. Me estaba volviendo loco.

GRACIAS, Mil gracias

[mrocf]

Me alegra que te haya servido: hasta la próxima.

Saludos, Cacho.

[Pablus00]

Hola mrocf dejo una consulta mas ya tu ejemplo funciona perfecto, pero me deja el excel abierto, que codigo se puede anexar para que cerre el excel tambien, gracias ;)

[David]

Puedes usar Application.Quit para cerrar Excel.

[Pablus00]

Gracias David el grande, cambie el codigo y funciono ;) gracias

Public Cierre As String

Sub CerrarArchivo()
Cierre = "SI"
ActiveWorkbook.Save
Application.Quit
End Sub

[Donnyal]

Como hago este proceso cuando, en lugar de un "Sub" Quiero hacerlo con un Private Sub

Private Sub Boton12_Click()

?????????

End Sub

Como valido la salida con un codigo inserto en un UserForm???

Gracias!

[JavierB]

Hola Donnyal

Te recuerdo el aviso que había al final de este tema y que parece que no has leído o no le has hecho ni caso.



Tema cerrado.