
Esconder password de una macro con asteriscos
Publicado por Mauricio (23 intervenciones) el 23/09/2013 19:38:50
Hola amigos, tengo una macro que al escribir una password, me muestra una hoja oculta, solo que al teclear la password, me muestra lo que escribo, necesito que en vez de que me aparezcan las letras que escribo, me aparezcan asteriscos, por favor, podrían ayudarme?.. la macro e si es esta:
Sub Auto_open()
Hoja14.Visible = True
Hoja14.Visible = xlSheetVeryHidden
End Sub
Sub Ir_a_la_correccion()
respuesta = InputBox("Introduce el password", "Password")
'si la respuesta introducida es distinta de "monica"
'devolvemos al usuario a la Hoja3 (ojo, Hoja14 es el nombre
'interno de VBA, no el nombre visible de la pestaña)
If LCase(respuesta) <> "monica" Then
Hoja3.Activate
Hoja14.Visible = xlSheetVeryHidden
Else
Hoja14.Visible = True
Hoja14.Activate
End If
End Sub
Gracias de antemano por la ayuda que puedan prestarme.
Sub Auto_open()
Hoja14.Visible = True
Hoja14.Visible = xlSheetVeryHidden
End Sub
Sub Ir_a_la_correccion()
respuesta = InputBox("Introduce el password", "Password")
'si la respuesta introducida es distinta de "monica"
'devolvemos al usuario a la Hoja3 (ojo, Hoja14 es el nombre
'interno de VBA, no el nombre visible de la pestaña)
If LCase(respuesta) <> "monica" Then
Hoja3.Activate
Hoja14.Visible = xlSheetVeryHidden
Else
Hoja14.Visible = True
Hoja14.Activate
End If
End Sub
Gracias de antemano por la ayuda que puedan prestarme.
Valora esta pregunta


0