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

单明英 · 发表于 2024-2-29 09:10

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

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

单明英 · 发表于 2024-3-2 10:16

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

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

		自动登录	找回密码
密码			免费注册