Pregunta para Héctor Miguel.

hola, Cesar !

Mostrar la cita

... resulta que ahora si necesito que no se vea la clave
... Como es eso de los formularios personalizados?

te paso al final un ejemplo de pocos 'pasos' y pocas lineas de codigo para preguntar por una clave...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. espero que no lo tomes a mal [pero]...
[creo que] no esta bien solicitar que 'responda' [alg]una persona [o grupo] 'en particular'... :-(
[con seguridad] alguien mas podria tener respuesta antes [que el 'interpelado'] pero... y si 'se la guarda' ? :-o

=1) en un modulo de codigo 'normal'...
Public Clave As String
Sub ProbandoClaves()
UserForm1.Show
If Clave <> "Abrete Sesamo" Then MsgBox "Clave equivocada !!!", , "": Exit Sub
MsgBox "Procesando la macro..." ' pon aqui las instrucciones si la clave ha sido correcta... '
End Sub

2) para el formulario...
a)ingresa al editor de vba -> atajo de teclado = alt+f11
b) [menu] insertar / userform
c) agrega un control 'cuadro de texto'
d) click-derecho sobre el control y selecciona -> 'propiedades'
doble-click sobre la propiedad 'passwordchar' e introduce [p.e.] un asterisco '*'
e) click-derecho sobre el control y selecciona -> 'ver codigo...'
f) elimina TODA linea de codigo que aparezca en el modulo de codigo y...
-> copia/pega las siguientes lineas en dicho modulo... <-
en el modulo de codigo del formulario ==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)
Clave = TextBox1
End Sub

Muchas gracias Héctorestoy llevando a cabo tus instrucciones...pero
resulta que cuando ejecuto la macro y sale el formulario...aparece sin los
botones de aceptar y cancelar..yo se los cree pero lógicamente no sé que
instrucciones darles...no sé si me hice entender, cualquier cosa estaré aqui
pendiente por tu respuesta

"Héctor Miguel" escribió en el mensaje
news:OCyWfNe%
Mostrar la cita

hola, Cesar !

Mostrar la cita

... resulta que ahora si necesito que no se vea la clave
... Como es eso de los formularios personalizados?

te paso al final un ejemplo de pocos 'pasos' y pocas lineas de codigo para
preguntar por una clave...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. espero que no lo tomes a mal [pero]...
[creo que] no esta bien solicitar que 'responda' [alg]una persona [o
grupo] 'en particular'... :-(
[con seguridad] alguien mas podria tener respuesta antes [que el
'interpelado'] pero... y si 'se la guarda' ? :-o

=> 1) en un modulo de codigo 'normal'...
Public Clave As String
Sub ProbandoClaves()
UserForm1.Show
If Clave <> "Abrete Sesamo" Then MsgBox "Clave equivocada !!!", , "":
Exit Sub
MsgBox "Procesando la macro..." ' pon aqui las instrucciones si la clave
ha sido correcta... '
End Sub

2) para el formulario...
a)ingresa al editor de vba -> atajo de teclado = alt+f11
b) [menu] insertar / userform
c) agrega un control 'cuadro de texto'
d) click-derecho sobre el control y selecciona -> 'propiedades'
doble-click sobre la propiedad 'passwordchar' e introduce [p.e.] un
asterisco '*'
e) click-derecho sobre el control y selecciona -> 'ver codigo...'
f) elimina TODA linea de codigo que aparezca en el modulo de codigo
y...
-> copia/pega las siguientes lineas en dicho modulo... <-
en el modulo de codigo del formulario ==> 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)
Clave = TextBox1
End Sub

hola, Cesar !

Mostrar la cita

... cuando ejecuto la macro y sale el formulario... aparece sin los botones de aceptar y cancelar
yo se los cree pero... no se que instrucciones darles...

el 'truco' [o 'ventaja'] de los codigos del ejemplo... es que el formulario solo necesita del control textbox
es decir, puedes prescindir de otros controles [como botones de aceptar y cancelar]
el usuario solo debe pulsar {enter} al terminar de introducir la clave...
-> el formulario 'desaparace' y deja la clave que provee el usuario para que la macro la 'valide'
-> si el usuario pulsa {escape}... el textbox se 'limpia' [como decir... 'me equivoque... va de nuez'] :))

si el usuario desea 'cancelar' el requerimiento de proveer una clave... solo tiene que pulsar la [X] en el formulario ;)

si cualquier duda... comentas ?
saludos,
hector.

Gracias por responder Héctor, ahora el problema que tengo es que cuando
escribo la contraseña y presiono emtrar me manda a VB y me dice: "Error de
compilación: Se ha detectado un nombre ambiguo: Clave"... qué crees que esté
sucediendo?

Mil gracias!


"Héctor Miguel" escribió en el mensaje
news:OrfpUho%
Mostrar la cita

hola, Cesar !

Mostrar la cita

... cuando ejecuto la macro y sale el formulario... aparece sin los
botones de aceptar y cancelar
yo se los cree pero... no se que instrucciones darles...

el 'truco' [o 'ventaja'] de los codigos del ejemplo... es que el
formulario solo necesita del control textbox
es decir, puedes prescindir de otros controles [como botones de aceptar y
cancelar]
el usuario solo debe pulsar {enter} al terminar de introducir la clave...
-> el formulario 'desaparace' y deja la clave que provee el usuario para
que la macro la 'valide'
-> si el usuario pulsa {escape}... el textbox se 'limpia' [como decir...
'me equivoque... va de nuez'] :))

si el usuario desea 'cancelar' el requerimiento de proveer una clave...
solo tiene que pulsar la [X] en el formulario ;)

si cualquier duda... comentas ?
saludos,
hector.

hola, Cesar !

Mostrar la cita

... ahora el problema que tengo es que cuando escribo la contrase#a y presiono entrar
me manda a VB y me dice: "Error de compilacion: Se ha detectado un nombre ambiguo: Clave"...

que [probablemente] el nombre de 'Clave' esta asignado en mas de un lugar en el mismo proyecto de macros -?-
-> en el nombre de alguna macro -?-
-> en el nombre de algun control/modulo/objeto/... -?-
-> ???

comentas ?
saludos,
hector.