VBA编程练习

仿照《Excel VBA经典代码应用大全》书中“更安全的密码输入界面”的例子，自己敲一遍代码。结果在运行中碰到了两个问题，一个是运行代码时偶尔会让Excel异常停止运行程序，另一个是在密码输入窗口的输入框里输入数字不能用*来占位。
仔细核对了多遍手输代码，也没有发现问题出在哪里。把教材附赠的代码拷贝到一个Excel页面指定的一列单元格里，然后再把自己手输的代码拷贝到另外一列单元格里，在第三列输入公式“=EXACT(单元格1，单元格2)”，然后下拉公式至全覆盖代码所占用到的行。终于发现有两行代码中存在输入错误。
具体的错误点见下面代码中的注释。
像这种API函数的声明内容，最好的办法就是从已有代码库里拷贝黏贴，否则一不注意就会因为手输错误，导致意想不到的程序错误。

Option Explicit
Public Declare Function FindWindow Lib “user32” Alias “FindWindowA” _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA” _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
'FindWindowExa写错了最后一个字母，错这一个字母后运行会报错“Microsoft Excel已停止工作”系统要求重新启动程序。Alias字句中的后缀如果是“A”，则说明声明的函数是ANSI类型的函数。
Public Declare Function SendMessage Lib “user32” Alias “SendMessageA” _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function timeSetEvent Lib “winmm.dll” _
(ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
'lpFunciton中i的位置错了，错了这一个单词就无法由“”占位输入密码的数字了。
Public Declare Function timeKillEvent Lib “winmm.dll” (ByVal uID As Long) As Long
Public lngTimeID As Long
Public Const EM_SETPASSWORDCHAR = &HCC
Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, _
ByVal dw2 As Long)
Dim lngHwd As Long
lngHwd = FindWindow("#32770", “密码”)
If lngHwd <> 0 Then
lngHwd = FindWindowEx(lngHwd, 0, “edit”, vbNullString)
SendMessage lngHwd, EM_SETPASSWORDCHAR, 42, 0
timeKillEvent lngTimeID
End If
End Sub
Sub Password()
Dim strPassword As String
line:
lngTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
'上一行如果在line:行上方，则输错密码后，再次输入密码就没有用“”占位了。
strPassword = InputBox(“请输入密码：”, “密码”)
If StrPtr(strPassword) <> 0 Then
If strPassword = “123456” Then
MsgBox “密码正确！”
ActiveSheet.Cells(8, 8) = strPassword
Exit Sub
Else
MsgBox “密码不正确！”
GoTo line
End If
End If
End Sub