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

单明英

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

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

laterite

参考一下吧，之前有类似的提问

https://club.excelhome.net/forum ... amp;_dsign=dc2c84ca

单明英

laterite 发表于 2024-3-2 17:44
参考一下吧，之前有类似的提问

https://club.excelhome.net/forum.php?mod=viewthread&tid=1660454&_dsi ...

代码我改了一下，但是提醒运行错误，请帮忙看下是哪的问题？

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