大佬帮忙把提示框输入的密码该成“******”来显示吗

名可名非恒名

大佬帮忙把提示框输入的密码该成“******”来显示吗




Sub UnprotectWorksheetWithPrompt()
    Dim Password As String
    Password = InputBox("请输入解除保护的密码：")
    If Password <> "" Then
        ActiveSheet.Unprotect Password
    Else
        MsgBox "您未输入密码，取消操作。"
    End If
End Sub

    Sub 采用单元格内容作为密码来保护其它工作表()
   
Password = Sheet2.Range("B1").Value
    Sheets("Sheet1").Protect Password:=Password
   
    End Sub

liulang0808

用窗体控件吧。。。

ww87725244

inputbox没这个功能。自己做个小窗体来代理INPUTBOX框吧。用TEXTBOX的PasswordChar属性

饮冰e士

我的求助贴，刚好是你的答案

https://club.excelhome.net/threa ... tml?_dsign=8383774d

shenjianrong163

网上API实现代码：

1. Option Explicit
   
2. 
   
3. #If Win64 Then
   
4.     Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
5.     Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
   
6.     Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
   
7.     Private Declare PtrSafe Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As LongPtr, ByVal dwUser As LongPtr, ByVal uFlags As Long) As Long
   
8.     Private Declare PtrSafe Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
   
9. #Else
   
10.     Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
11.     Private 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
    
12.     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    
13.     Private 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
    
14.     Private Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
    
15. #End If
    
16. 
    
17. 'timeSetEvent函数请参考MSDN
    
18. Private Const EM_SETPASSWORDCHAR = &HCC
    
19. Dim lTimeID As Long 'Timer ID
    
20. Const pswdInputBoxTitle = "pswdInputBox" '输入密码的对话框标题
    
21. 
    
22. 'TimeProc callback 函数请参考MSDN
    
23. 
    
24. Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
    
25.     Dim hwd As LongPtr '输入密码的对话框句柄
    
26.     'VBA InputBox对话框之Class Name是 "#32770",
    
27.     '标题为 "pswdInputBox", 这是在InputBox函数的Title引述中自订的
    
28.     '请注意Application.InputBox方法所出现的对话框Class Name是 "bosa_sdm_XL9"
    
29.     hwd = FindWindow("#32770", pswdInputBoxTitle)
    
30.     If hwd <> 0 Then '若对话框存在
    
31.         '取得输入的文字框句柄, 该文字框的Class Name是"Edit", 无标题,
    
32.         '而Application.InputBox方法所出现的对话框之文字框的Class Name是"EDTBX"
    
33.         hwd = FindWindowEx(hwd, 0, "Edit", vbNullString)
    
34.         '设定密码字符为 "*", "*"的ASCII码为42
    
35.         SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0
    
36.         '设定完成, 取消定时器
    
37.         timeKillEvent lTimeID
    
38.     End If
    
39. End Sub
    
40. 
    
41. '自定义函数pswdInputBox, 是一个输入密码使用的InputBox, 输入的内容都以 "*" 显示.
    
42. 
    
43. Function pswdInputBox() As Variant
    
44.     '启动一个特定的Timer事件, 0.01秒延迟, 0.05秒看一次
    
45.     lTimeID = timeSetEvent(10, 50, AddressOf TimeProc, 1, 1)
    
46.     '显示InputBox对话框
    
47.     pswdInputBox = InputBox(prompt:="请输入管理员密码", Title:=pswdInputBoxTitle)
    
48. End Function
    
49. 
    
50. Sub TestpswdInputBox()
    
51.     Dim s
    
52.     Static x As Integer '静态变量
    
53.     s = pswdInputBox '在自己的代码中 只需要这一句调用 代替以前的inbutbox即可
    
54.     If s = "" Then Exit Sub
    
55.         If s = "123456" Then
    
56.             MsgBox "管理员登录成功"
    
57.         Else
    
58.             x = x + 1
    
59.             If x = 3 Then
    
60.             MsgBox "你已经3次输入密码,电脑即将爆炸!"
    
61.             x = 0
    
62.             Exit Sub
    
63.         End If
    
64.         MsgBox "密码已输入错误" & x & "次,请重新输入"
    
65.         TestpswdInputBox
    
66.     End If
    
67. End Sub

复制代码

名可名非恒名

liulang0808 发表于 2024-8-19 11:08
用窗体控件吧。。。

感谢大佬提示

名可名非恒名

ww87725244 发表于 2024-8-19 11:11
inputbox没这个功能。自己做个小窗体来代理INPUTBOX框吧。用TEXTBOX的PasswordChar属性

感谢大佬提示

名可名非恒名

饮冰e士 发表于 2024-8-19 12:35
我的求助贴，刚好是你的答案

https://club.excelhome.net/thread-1699581-1-1.html?_dsign=8383 ...

写了个窗体解决了

名可名非恒名

shenjianrong163 发表于 2024-8-19 14:15
网上API实现代码：

感谢大佬，写了个窗体解决了