ExcelVBA输入框

我有以下Excel文件的输入框.我不想显示输入字符并需要显示输入框字符*,该怎么做？

Private Sub Workbook_Open()

Dim UserName As String

UserName = InputBox("Please Enter Your USER NAME.")

Range("O1") = UCase(UserName)


End Sub

谢谢,Hewage

使用用户窗体创建具有文本框和两个按钮的用户窗体在文本框属性中，在PasswordChar框中输入*

在userForm模块中使用下面的代码。

Private Sub CommandButton1_Click()

If TextBox1 = "123456" Then
MsgBox "Correct"
Else
MsgBox "Incorrect"
End If
Unload Me

End Sub

Private Sub CommandButton2_Click()

'cancel button

Unload Me
End Sub

Private Sub UserForm_Initialize()

Me.Caption = "Enter Password"

End Sub

您的用户表单将如下所示