inputbox输入密码时显示星号*的xls实例

davidwance

在输入密码时不显示真实数据，而是显示星号*****形式的一个实例，供大家参考


Private Sub CommandButton1_Click()
  Dim hwd As Long
  lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
  aa = InputBox("请输入字符", "密码inputbox")
' DoEvents
If aa = 123456 Then
MsgBox "密码正确!可以登录"
Else
MsgBox "密码错误!"
End If
  End Sub

天涯浪迹

学习一下           

cxmei2010

学习才有进步！

skyline_zwl

学习了，谢谢

lcbnyn

收下了，学习学习。谢谢！

fcdd

Sub 命令密码开关()  '要执行命令必须正确输入密码方能执行命令，
    Dim mycode$, i%
    Do While i <= 3
        mycode = InputBox("请输入密码")
        i = i + 1
        If mycode = "" Then Exit Sub
        If mycode <> Sheet1.Range("I12") Then '需要输入的密码等于【Sheet1.Range("I12")】内容
            MsgBox "输入密码错误，请重新输入"
        Else
            ThisWorkbook.Unprotect (mycode)
            Exit Do
        End If
    Loop

    If i > 3 Then '大于3次，第4次后自动关闭
        MsgBox "密码超次输入，不能执行以下命令！"
        Exit Sub
    End If
    '密码正确后 执行的命令
End Sub

以上是我的“密码正确后 执行的命令"请大侠帮忙改一改  输入密码时显示星号*

fcdd

没人帮我这个文盲，我自己试过好多次还是不行

zjc790

谢谢大神。。。