Macro cn problemas

Encontra para mi suerte la sgte. macro en el foro pero hay algunos
inconvenientes, si alguien me puede ayudar se lo agradecere

Private Sub Workbook_BeforePrint(Cancel As Boolean)
mypassword = "soloyo"
yourpassword = "test"
words = "Por favor, introduce tu password. Solo tienes una oportunidad."
topwords = "Trial Version - password requerido para imprimir"
tester = InputBox(words, topwords)
If tester = mypassword Or tester = yourpassword Then
MsgBox ("Lo siento. Fallaste, no puedo permitirte la impresión.")
Cancel = True
Exit Sub
else
End If
MsgBox ("Password correcto. La impresión esta en curso")
End Sub


Sin poner la clave, le doy Cancelar o enter imprime el documento.
Si le pongo cualquier clave tambíen imprime el documento.
Si le pongo la clave "soloyo" o "test" ahi no imprime el documento.
Cuando le pongo una clave aparece en la ventana de dialogo la palabra que
escribo,
se puede o existe una forma q solo aparezca asterisco como cuando se
ponen claves para q la otra persona no pueda verlo.
Podrian por favor ayudarme, no soy experto en excel pero esta macro
seria perfecta para mis trabajos en los libros ya q hay reportes
finales q conviene q solo una persona los imprima.