'パスワード--------------------------------------------------

Private Sub CommandButton1_Click()
If TextBox1.Text = "1234" Then
Application.Visible = True
    Unload UserForm5
    Unload UserForm2    
    UserForm2.Show vbModeless   
Else
  MsgBox "パスワードが違います。"

End If
End Sub

'---------------------------------------------------

PasswordCharを設定したテキストボックスに入力 

「　*　」アスタリスク