como diseño un formulario que me deje ejecutar una macro

27/10/2005 - 21:11 por Isaac García | Informe spam
necesito generar un formulario que al llamarlo me solicite una clave de
acceso, y que si es verdadero la ejecute y si no, solo mande un mensaje.
Saludos Ygracias


ISaac
 

Leer las respuestas

#1 Héctor Miguel
28/10/2005 - 06:59 | Informe spam
hola, Isaac !

necesito generar un formulario que al llamarlo me solicite una clave de acceso
y que si es verdadero la ejecute y si no, solo mande un mensaje



la forma mas 'delgada' [menos lineas de codigo] que se me ocurre, es:
utilizando SOLO un control de cuadro de texto en el formulario y que el usuario presione 'enter' al terminar.

te paso los pasos y, si cualquier duda... comentas?
saludos,
hector.
== estando activo 'el libro en cuestion' ... =1.- ingresa al editor de vba -> atajo de teclado = alt+f11
2.- [menu] insertar / userform
3.- agrega un control 'cuadro de texto'
4.- click-derecho sobre el control y selecciona -> 'propiedades'
doble-click sobre la propiedad 'passwordchar' e introduce [p.e.] un asterisco '*'
5.- click-derecho sobre el control y selecciona -> 'ver codigo...'
6.- elimina TODA linea de codigo que aparezca en el modulo de codigo y...
-> copia/pega las siguientes lineas en dicho modulo... <-
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 = "PoN aqUi tU cLavE" Then Macro_a_ejecutar Else MsgBox "Clave equivocada !!!"
End Sub

solo toma en cuenta que la comparacion de textos en vba -generalmente- debe ser 'exacta' [mayusculas/minusculas]

Preguntas similares