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