Lo que tu estás poniendo es un InputBox, preguntaste es por un TextBox, parecen iguales, pero no lo son.
En el InputBox no puedes poner el carácter *
Si quieres lograr ese efecto, tendrás que cambiar el InputBox por un TextBox.
Puede ser de esta forma:
Crea un formulario y pon el siguiente código en el formulario:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Entrada = TextBox1
If Entrada = "soyunlistillo" Then
Sheets("Introducir HORAS").Visible = True
Sheets("Introducir MATERIALES").Visible = True
Sheets("RESUMEN").Visible = True
Sheets("COSTE-MO").Visible = True
Sheets("Comparativa Horas").Select
Else
MsgBox "Acceso Denegado", vbExclamation, "JA, JA, JA.. NO PUEDES"
Unload Me
End If
End Sub
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
Unload Me
End Sub
El formulario se debe ver así:
Recuerda poner la propiedad de Passwordchar en el textbox.
Ahora, pon lo siguiente en tu macro:
Sub MostrarHojas()
'Por.Dante Amor
UserForm1.Show
End Sub
Te anexo mi archivo para que veas el funcionamiento del formulario:
https://www.dropbox.com/s/eifr0ed5rjljv2f/form%20con%20password.xlsm?dl=0
Saludos. Dante Amor