[分享]inputbox输入密码时显示星号*的xls实例

zjgzgs · 发表于 2014-5-27 08:20

谢谢！挺好用的。

VBA万岁 · 发表于 2014-5-27 20:22

学习了，谢谢分享！

white_flag · 发表于 2014-8-11 14:01

好用好用赞

eitiwo · 发表于 2014-12-12 21:04

不錯有用

謝謝樓主提供分享 !!!

7473v6575ba · 发表于 2016-5-24 14:59

我也要!可以的。。

audychu · 发表于 2016-12-19 16:35

谢谢分享！！！！

alanlad · 发表于 2017-10-19 14:06

我用的是Office 2016 的64位，提示我代码错误怎么回事

913852310 · 发表于 2017-10-21 21:37

楼主

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
   If .Value <> "" Then
   PW = InputBox("管理员权限：")
   If PW <> "123" Then
   Cells(1, 1).Select
   Else
   Exit Sub
   End If
   End If
End With
End Sub
怎么实现？

Zidone · 发表于 2018-3-10 22:46

liuxiao 发表于 2010-2-25 21:59
我的附件中打开工作表1要输入密码，密码是123456，输入时还是123456，我想在文本框中看到的是******，代码 ...

属性里设置我试过了 passwordchar设置为*

hqlin65 · 发表于 2018-6-27 15:27

挺好用的.收藏起来

		自动登录	找回密码
密码			免费注册