VBA实现密码输入框星号隐藏

1：插入“模块”，粘贴以下代码：
 '模块中：
  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
  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
  Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
  Public Declare Function GetTickCount Lib "kernel32" () As Long
  Public Const EM_SETPASSWORDCHAR = &HCC
  Public lTimeID     As Long
    
  'timeSetEvent的回调函数
  Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
          ByVal dw1 As Long, ByVal dw2 As Long)
          '在这里捕捉inputbox
          hwd = FindWindow("#32770", "密码：※脱※敏※tbox")
          If hwd <> 0 Then
                  hwd = FindWindowEx(hwd, 0, "edit", vbNullString)
                  SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0
                  timeKillEvent lTimeID
          End If
  End Sub
    
  '程序中：
   
  '上面方法只是作为一种纯技术上的尝试，没有什么实际的意义。。在实际应用中，自己做一个窗口，又美观又方便。。。。。。
    
    

2、在thisworkbook中粘贴以下代码：