Como cerrar Useform con la tecla esc
Hola a quien pueda ayudarme, tengo creado un formulario de calendario que se ejecuta al dar doble click en una celda, quisiera saber como puedo hacer para que si al abrirse el calendario, el usuario no elije ninguna fecha. El mismo se cierre al presionarse la tecla "esc"
"Ademas si saben por que No puedo usar este useform, si la hojaq se encuentra protegida, aunque la celda este desprotegida agradecería la respuesta
Muchísimas Gracias!
"Ademas si saben por que No puedo usar este useform, si la hojaq se encuentra protegida, aunque la celda este desprotegida agradecería la respuesta
Muchísimas Gracias!
1 respuesta
Respuesta de paramisolo
1
¿No te es suficiente si cierra de la cruz?, son varias lineas de código entrando en las diferencias de teclado entre regiones ( hay que utilizar caracteres ASCII) y cada tecla corresponde con un numero dependiendo del numero de teclas de tu teclado. De todas las formas te dejo el código:
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then
UserForm1.Hide
End If
End Sub
Pero esto es para un teclado de 128 teclas en español de españa.
Respecto a la otra pregunta debes de seleccionar la celda, en formato>celdas> proteger despincha proteger y en herramientas>proteger hoja despincha abajo seleccionar celdas desprotegidas.
>Un saludo
>Julio
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then
UserForm1.Hide
End If
End Sub
Pero esto es para un teclado de 128 teclas en español de españa.
Respecto a la otra pregunta debes de seleccionar la celda, en formato>celdas> proteger despincha proteger y en herramientas>proteger hoja despincha abajo seleccionar celdas desprotegidas.
>Un saludo
>Julio
