Enmascarar Password en un InputBox

[Deivid]

Tengo esta macro:

Option Explicit

Sub check()
Dim valCheck As Integer, passCheck As Integer

passCheck = 2299

valCheck = Application.InputBox(prompt:="Ingrese el código de 4 dígitos", Type:=1)


If valCheck = passCheck Then
With Cells(ActiveCell.Row, 36)
.Value = "REVISADO"
.Font.ColorIndex = 50
.Font.Bold = True
End With
Else
Exit Sub
End If

End Sub

El passcheck por defecto es 2299. Como puedo hacer para que al introducir cada digito aparezca un asterisco?

 

[Greg Truby]

Actualmente lo que hago yo es que tengo un módulo de formulario que implementé como un módulo de clase donde importo el módulo y pongo la contraseña en el TAG del formulario y zás, ya tenés todo lo necesario. Cuando tengo tiempo pondré más sobre cómo hacer algo asi. Pero realmente hay que gatear antes de correr, ¿no?

 

[galileogali]

Respecto a la Duplicacion de codigo en Modulo1 y Thisworkbook: se trata de un error de mi parte, basta con el codigo que esta en el Modulo

 

[Juan Pablo González]

Este codigo es viejo, pero siempre me funciono muy bien:

http://www.mrexcel.com/forum/showthread.php?t=43144&highlight=password+inputbox

(La respuesta de DK es de la que estoy hablando...)

 

[Deivid]

Gracias Juan Pablo. Otra cuestion... Para que en los commandbuttons acepte el primer click del raton o el pulsar tan solo una vez el Enter, que propiedad tengo que cambiarle?
gracias

 

[Juan Pablo González]

Eh, ninguna? A mi me funciona como un InputBox normal, en que puedo escribir algo y presionar Enter para aceptar, o Esc para cancelar.