求助，在弹出对话框内输入密码时，密码显示*号

单明英

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
     If .Value <> "" Then
      PW = InputBox("修改内容请输入密码：")
      If PW <> "8363" Then
      Cells(1, 1).Select
      Else
      Exit Sub
     End If
     End If
End With
End Sub

求助，在弹出对话框内输入密码时，密码显示*号，以上代码不显示*号

单明英

以下是更改之后的代码，但是运行提醒错误
请帮忙看下是哪里出现了问题

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
     If .Value <> "" Then
        PW = InputBox("修改内容请输入密码:", "Password", "", 0, 0, "***")
        If PW <> "8363" Then
            Cells(1, 1).Select
        Else
            Exit Sub
        End If
     End If
End With
End Sub