[發問] 在自定表單中 如何 請輸密碼時 show **** 代替 文字數字 謝謝!

user999

自定表單
strPassword = InputBox("請輸入密碼：",  "訊息視窗")

Hsieh

回復 1# user999


    http://blog.xuite.net/crdotlin/excel/13554651
'一般模組 Module1 程式碼

1. Option Explicit
   
2. 
   
3. 'API宣告
   
4. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   
5.             (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
6. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
   
7.             (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
   
8. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   
9.             (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
10. 'timeSetEvent函數請參考:http://msdn2.microsoft.com/en-us/library/ms713423.aspx
    
11. Private Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, _
    
12.             ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
    
13. Private Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
    
14. Private Const EM_SETPASSWORDCHAR = &HCC
    
15. 
    
16. Dim lTimeID     As Long          'Timer ID
    
17. Const pswdInputBoxTitle = "pswdInputBox"     '輸入密碼的對話框標題
    
18. 
    
19.   
    
20. 'TimeProc callback 函數請參考:http://msdn2.microsoft.com/en-us/library/ms713420.aspx
    
21. Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
    
22.     ByVal dw1 As Long, ByVal dw2 As Long)
    
23.     Dim hwd As Long         '輸入密碼的對話框句柄
    
24.     'VBA InputBox對話框之Class Name是 "#32770",
    
25.     '標題為 "pswdInputBox", 這是在InputBox函數的Title引述中自訂的
    
26.     '請注意Application.InputBox方法所出現的對話框Class Name是 "bosa_sdm_XL9"
    
27.     hwd = FindWindow("#32770", pswdInputBoxTitle)
    
28.     If hwd <> 0 Then        '若對話框存在
    
29.         '取得輸入的文字框句柄, 該文字框的Class Name是"Edit", 無標題,
    
30.         '而Application.InputBox方法所出現的對話框之文字框的Class Name是"EDTBX"
    
31.         hwd = FindWindowEx(hwd, 0, "Edit", vbNullString)
    
32.         '設定密碼字元為 "*", "*"的ASCII碼為42
    
33.         SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0
    
34.         '設定完成, 取消計時器
    
35.         timeKillEvent lTimeID
    
36.     End If
    
37. End Sub
    
38. 
    
39. 
    
40. '自定義函數pswdInputBox, 是一個輸入密碼使用的InputBox, 輸入的內容都以 "*" 顯示.
    
41. Function pswdInputBox() As Variant
    
42.     '啟動一個特定的Timer事件, 0.01秒延遲, 0.05秒看一次
    
43.     lTimeID = timeSetEvent(10, 50, AddressOf TimeProc, 1, 1)
    
44.     '顯示InputBox對話框
    
45.     pswdInputBox = InputBox(Prompt:="請輸入編輯密碼", Title:=pswdInputBoxTitle)
    
46. End Function

複製代碼

'表單模組Userform1程式碼
表單上設置一個標籤Label1、及1個按鈕CommandButton1

下載 (11.27 KB)

2011-12-3 21:56

1. Private Sub CommandButton1_Click()
   
2. Label1.Caption = ""
   
3.     If pswdInputBox <> 123456 Then
   
4.         '密碼不正確, 顯示訊息
   
5.         Label1.Caption = "對不起，密碼錯誤，你無編輯權限!"
   
6.         Else
   
7.         Label1.Caption = "歡迎使用本系統"
   
8.     End If
   
9. End Sub

複製代碼

user999

回復 2# Hsieh


    非常謝謝您! 看起來好複雜,我會好好學習,測試好用,真感謝.