Foros del Web » Soporte técnico » Ofimática »

Bloquear Btn Cerrar (X) del Excel

Estas en el tema de Bloquear Btn Cerrar (X) del Excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 18/08/2007, 01:27
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Bloquear Btn Cerrar (X) del Excel

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
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #2 (permalink)  
Antiguo 18/08/2007, 15:05
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.590
Antigüedad: 15 años, 9 meses
Puntos: 144
Re: Bloquear Btn Cerrar (X) del Excel

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
  #3 (permalink)  
Antiguo 18/08/2007, 22:14
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
De acuerdo Bloquear Btn Cerrar (X) del Excel

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
  #4 (permalink)  
Antiguo 19/08/2007, 04:43
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.590
Antigüedad: 15 años, 9 meses
Puntos: 144
Re: Bloquear Btn Cerrar (X) del Excel

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

Salu2
  #5 (permalink)  
Antiguo 21/08/2007, 14:05
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Re: Bloquear Btn Cerrar (X) del Excel

Pablus00 : ¿ te sirvieron las sugerencias dadas ?...
  #6 (permalink)  
Antiguo 22/08/2007, 13:31
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Re: Bloquear Btn Cerrar (X) del Excel

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 ;)
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #7 (permalink)  
Antiguo 22/08/2007, 22:31
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Re: Bloquear Btn Cerrar (X) del Excel

Funciona 10 puntos, gracias por la ayuda, el ejemplo de mrocf es el que buscaba :D
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #8 (permalink)  
Antiguo 22/08/2007, 22:42
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Re: Bloquear Btn Cerrar (X) del Excel

¡ Qué bueno que te haya sido útil !...
Hasta la próxima.
  #9 (permalink)  
Antiguo 23/10/2008, 00:45
 
Fecha de Ingreso: octubre-2008
Mensajes: 8
Antigüedad: 10 años, 10 meses
Puntos: 0
Respuesta: Bloquear Btn Cerrar (X) del Excel

Cita:
Iniciado por mrocf Ver Mensaje
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.
  #10 (permalink)  
Antiguo 23/10/2008, 03:18
 
Fecha de Ingreso: septiembre-2007
Ubicación: Badajoz City
Mensajes: 126
Antigüedad: 12 años
Puntos: 0
Respuesta: Bloquear Btn Cerrar (X) del Excel

Cita:

Sub GUARDAR_SALIR()
ActiveWorkbook.Save
Application.QUIT
End Sub
Gracias.
Prueba así a ver qué tal:
Cita:
Sub GUARDAR_SALIR()
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
  #11 (permalink)  
Antiguo 23/10/2008, 09:03
 
Fecha de Ingreso: octubre-2008
Mensajes: 8
Antigüedad: 10 años, 10 meses
Puntos: 0
Respuesta: Bloquear Btn Cerrar (X) del Excel

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.
  #12 (permalink)  
Antiguo 23/10/2008, 12:48
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
De acuerdo Respuesta: Bloquear Btn Cerrar (X) del Excel

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.
  #13 (permalink)  
Antiguo 23/10/2008, 13:21
 
Fecha de Ingreso: octubre-2008
Mensajes: 8
Antigüedad: 10 años, 10 meses
Puntos: 0
Respuesta: Bloquear Btn Cerrar (X) del Excel

Cita:
Iniciado por mrocf Ver Mensaje
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
  #14 (permalink)  
Antiguo 23/10/2008, 14:18
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Respuesta: Bloquear Btn Cerrar (X) del Excel

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

Saludos, Cacho.
  #15 (permalink)  
Antiguo 04/03/2009, 15:47
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Respuesta: Bloquear Btn Cerrar (X) del Excel

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 ;)
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #16 (permalink)  
Antiguo 04/03/2009, 18:38
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.712
Antigüedad: 14 años, 4 meses
Puntos: 836
Respuesta: Bloquear Btn Cerrar (X) del Excel

Puedes usar Application.Quit para cerrar Excel.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #17 (permalink)  
Antiguo 05/03/2009, 04:57
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Respuesta: Bloquear Btn Cerrar (X) del Excel

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

Public Cierre As String

Sub CerrarArchivo()
Cierre = "SI"
ActiveWorkbook.Save
Application.Quit
End Sub
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #18 (permalink)  
Antiguo 20/02/2010, 10:05
 
Fecha de Ingreso: febrero-2010
Mensajes: 2
Antigüedad: 9 años, 6 meses
Puntos: 0
Respuesta: Bloquear Btn Cerrar (X) del Excel

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!
  #19 (permalink)  
Antiguo 20/02/2010, 10:43
Avatar de JavierB
Colaborador
 
Fecha de Ingreso: febrero-2002
Ubicación: Madrid
Mensajes: 25.052
Antigüedad: 17 años, 7 meses
Puntos: 772
Respuesta: Bloquear Btn Cerrar (X) del Excel

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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado




La zona horaria es GMT -6. Ahora son las 06:04.