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

Salir de Excel cuando la "X" esta bloqueada

Estas en el tema de Salir de Excel cuando la "X" esta bloqueada en el foro de Ofimática en Foros del Web. Hola a todos, tengo el siguiente problema: Tengo un código para bloquear el cerrado de excel, ya que tengo procesos que se hacen al salir ...
  #1 (permalink)  
Antiguo 20/02/2010, 14:58
 
Fecha de Ingreso: febrero-2010
Mensajes: 2
Antigüedad: 14 años, 1 mes
Puntos: 0
Salir de Excel cuando la "X" esta bloqueada

Hola a todos, tengo el siguiente problema: Tengo un código para bloquear el cerrado de excel, ya que tengo procesos que se hacen al salir de excel con un boton. Lo malo es que al correr el codigo no puedo salir de ninguna forma, lei un foro acerca de esto pero la solucion la dan con un codigo "Sub" el problema es que yo quiero manejarlo desde un UserForm de la siguiente forma:
ThisWorkbook: [codigo declarado]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cierre <> "SI" Then
Cancel = True
MsgBox "Para Salir de esta Aplicación, Utilice en el Menu la Opción <SALIR>", 48, "Inhabilitado"
End If
End Sub

Módulo1 [codigo declarado]

Public Cierre As String

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

Este ultimo codigo del modulo 1 es el que necesito plasmar en un codigo privado que seria algo asi:

Private Sub Boton12_Click()
????????? (aqui va el codigo)
End Sub

De antemano Gracias!

Etiquetas: cuando, excel, salir
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.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:17.