Pregunta para Héctor Miguel.

hola, Cesar !

... 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%

hola, Cesar !

... 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 !

... 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%

hola, Cesar !

... 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 !

... 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.