Como bloquear el cierre manual de un textbox?
Dante, Veo que resuelve muchas consultas que le realizan por lo que hoy me veo obligado a realizarle una que me tiene cabezon desde hace rato, bueno no se si se pueda, mi consulta es la siguiente:
Tengo un archivo en el cual ejecuto un macro que llama a un formulario el cual muestra un textbox en un bucle para que usuarios ingresen un numero, este mismo guarda el numero y se vuelve a activar para que le sigan metiendo mas números.
Hay alguna forma que este texbox se pueda bloquear el cerrado y no cerrar manualmente con el mouse (X), ¿quiero qué se pueda cerrar el texbox y su bucle ingresando una clave única (clave de administrador)?
Agradezco de antemano si me pueden ayudar o una idea de como hacerlo .
1 Respuesta
Agrega el siguiente código en el formulario
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Cerrar el formulario desde el botón" Cancel = True End If End Sub
Para salir del formulario, primer agrega un CommandButton en el formulario.
Agrega el siguiente código al commandbutton
Private Sub CommandButton1_Click() If TextBox1 = "abc" Then Unload Me End If End Sub
Cambia CommandButton1 por el nombre del botón que creaste.
Cambia TextBox1 por tu textbox
Cambia "abc" por la clave del administrador.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
