Consulta, como puedo desactivar el botón POR de cierre en excel, y que me force ha hacerlo a través de COMMANDBUTTON1_cLICK()

Consulta, como puedo desactivar el botón X para cierre en excel, y que me force ha hacerlo a través de COMMANDBUTTON1_cLICK()

, tengo así:

Public Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True

MsgBox "VERIFIQUE EL % ISOCINETICO ESTE ENTRE 90 % Y 110%"

End Sub aver me ayadan con este tema

Respuesta
2

En los eventos de tu libro, debes declarar una variable como pública, por ejemplo, voy a declarar la variable "salida" como Public

Nota: Las declaraciones deben ir al principio de todo el código

Public salida
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
    If salida = False Then
       Cancel = True
        MsgBox "VERIFIQUE EL % ISOCINETICO ESTE ENTRE 90 % Y 110%" & vbCr & vbCr & _
               "CIERRE EXCEL DESDE EL BOTÓN DE SALIDA", vbExclamation
    End If
End Sub

Ahora en tu botón, pon lo siguiente:

Private Sub CommandButton1_Click()
    ThisWorkbook.salida = True
    ThisWorkbook.Close
End Sub

Si presionas la "X" de cerrar te envía el mensaje.

Si presionas el botón se cierra.


.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Hola, gracias por tu respuesta, pegue el código que me enviaste, pero no funciono o estaré haciendo algo mal. ten envio las imagen de como tengo mi hojas configuradas

Quita la línea que dice option explicit

Prueba y me comentas.

Si te envía error, dime qué mensaje de error te aparece y en cuál línea se detiene.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta.

¡Gracias!  Me ayudaste mi puntancion 10000

Al final de mi respuesta tienes 2 opciones para valorar: "Votar" y "Excelente", si ya no tienes dudas, apreciaría que cambiaras la valoración de la respuesta.

1 respuesta más de otro experto

Respuesta
1

Primero haz lo siguiente con un botón:

Private Sub CommandButton2_Click()
Unload Me
End Sub

Y ahora sí lo siguiente con el evento "QueryClose" de tu "Userform":

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
        MsgBox "Usa el botón adecuado para salir"
        Cancel = True
    End If
End Sub

Comentas

Abraham Valencia

Gracias por tu pronta respuesta, ¿ese código lo tengo que añadir o borrar lo que tengo?

Recomiendo borrar lo que enviaste antes pero más que copiar/pegar lo que te he recomendado, trata de adaptarlo a lo que realmente necesitas.

NaCl-U-2

Abraham Valencia

Ese código es para para formularios por lo visto, lo que necesito es desactivar el botón POR de cierre de Excel me me mande un mensaje y me obligue a salir a través del command booton

Oh, lo siento, asumí, erróneamente, que hablabas de un "Userform". Acabo de entrar y veo que ya te dieron un alternativa así que asumo que te servirá.

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas