Respuesta: Desabilitar el botn cerrar y barra de titulos Hola Skylug, lo que pasa es que estas mezclando los codigos, llamando a la funcion que impide salir desde tu boton, entonces al clickear obviamente te mostrara que no puede salir.
lo tenes que poner en thisworkbook pero dentro del evento BeforeClose: (al intentar cerrar o sea before close, activa la proteccion)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CloseMode = 0 Then
MENSAJE = MsgBox("HACER CLIC EN SALIR")
Cancel = 1
End If
End Sub
y para tu boton:
Private Sub CommandButton32_Click()
ActiveWorkbook.Save 'si queres salvarlo antes de cerrar sino borra la linea
Application.Quit
End Sub
Saludos
__________________ -- Nunca te des por vencido, aún vencido -- Web |