スポンサーリンク

[Excel by VBA] ログイン画面のパスワードをマスクチェンジする。

Excel でのVisual Basicです。
アクセスでもOKと思います。。

login_vba

 

テキストボックスを選択してプロパティの「PasswordChar』の項目にアスタリスク(*)を入力。

Private Sub Password_login_box_Change()

End Sub
Private Sub Password_look_check_Click()
Static Maskchange As Boolean
If Maskchange = True Then
'パスワードが見える状態
Password_login_box.PasswordChar = "**"
Me.Password_look_check.Caption = "パスワード隠さない"
Else
'パスワードが見えない状態
Password_login_box.PasswordChar = ""
Me.Password_look_check.Caption = "パスワード隠す"
End If

'状態を反対にする
Maskchange = Not Maskchange

End Sub
Private Sub UserForm_Click()

End Sub

これで、パスワードのマスクの表示・非表示をチェックボックスで選択できるようになります。

【Microsoft ストア限定】3点セット:Surface Pro (i5 / 256GB / 8GB モデル) + 専用 タイプ カバー (ブラック) + 専用 ペン (プラチナ) 【純正】JHH-00002
マイクロソフト
はっきり言って家の中、外出先で使うにはこれ一台ですべてOK! 私も使っていますがこれ1台ですべて対応できるのでディスクトップマシンの使用頻度が下がりました(^-^;

Bose QuietComfort 35 wireless headphones II ワイヤレスノイズキャンセリングヘッドホン Amazon Alexa搭載 ブラック
BOSE
上のSurface Proとセットで使用していますが、さすがBOSE! ほかのヘッドホンなどまったく使う気がしなくなるほど素晴らしいです。

Microsoft Office 365 Solo (最新 1年版)|オンラインコード版|Win/Mac/iPad|インストール台数無制限
マイクロソフト
Microsoft Officeはパッケージで買う時代は終わり、これからは安価に最新版をすべてのパソコンにインストールする時代です。

カスペルスキー セキュリティ (最新版) | 3年 5台版 | オンラインコード版 | Windows/Mac/Android対応
カスペルスキー
3年間のコストは最安で、機能が充実しておりTRENDMICROよりも軽く、Symantecのように不具合も少ないおススメのアンチウィルスソフトウェア

スポンサーリンク
プログラム言語
この記事を下記のSNSでシェアをする。
コス太郎をフォローする
スポンサーリンク
徒然雑草