Boton Password

03/12/2005 - 17:29 por Cesar H | Informe spam

Buenos días:

Resulta que tengo un botón en una hoja de cálculo que cuando hago clic en él
me permite a través de un "input" agregar datos a otra hojapero lo que
quiero ahora es que al presionar el botón me pida una contraseña para luego
si poder agregar los datos...que código necesito agragra a mi proyecto VBA
para conseguir esto?

Agradezco el apoyo.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

03/12/2005 - 18:47 | Informe spam

hola, Cesar !

... que al presionar el boton me pida una contrase#a para luego si poder agregar los datos...

prueba poniendo como ->primera instruccion<- en el procedimiento algo +/- como...
If InputBox("", "") <> "Yo mero" Then Exit Sub

-> obviamente 'debieras' cambiar la clave [Yo mero] por una de tu preferencia ;)
si NO quieres que 'se vea' la clave... se necesitara un formulario de usuario personalizado :(
saludos,
hector

Responder a este mensaje

#2 Cesar H

03/12/2005 - 19:43 | Informe spam

Excelente Héctor funcionó...pero, cómo hago para que salga un mensaje de
error si se digita una contraseña que no es?

"Héctor Miguel" escribió en el mensaje
news:uyZVkGD%

hola, Cesar !

... que al presionar el boton me pida una contrase#a para luego si poder
agregar los datos...

prueba poniendo como ->primera instruccion<- en el procedimiento algo +/-
como...
If InputBox("", "") <> "Yo mero" Then Exit Sub

-> obviamente 'debieras' cambiar la clave [Yo mero] por una de tu
preferencia ;)
si NO quieres que 'se vea' la clave... se necesitara un formulario de
usuario personalizado :(
saludos,
hector

Responder a este mensaje

#3 Héctor Miguel

03/12/2005 - 19:50 | Informe spam

hola, Cesar !

... funciono... pero, como hago para que salga un mensaje de error si se digita una contrase#a que no es?

If InputBox("", "") <> "Yo mero" Then _
MsgBox "La clave es incorrecta !!!", , "": Exit Sub

saludos,
hector.

Responder a este mensaje

#4 Cesar H

03/12/2005 - 20:10 | Informe spam

Muy bien HéctorMuchas gracias!!!!

"Héctor Miguel" escribió en el mensaje
news:uS3DfpD%

hola, Cesar !

... funciono... pero, como hago para que salga un mensaje de error si se
digita una contrase#a que no es?

If InputBox("", "") <> "Yo mero" Then _
MsgBox "La clave es incorrecta !!!", , "": Exit Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida