Excel でのVisual Basicです。
アクセスでもOKと思います。。
テキストボックスを選択してプロパティの「PasswordChar』の項目にアスタリスク(*)を入力。
[code lang=”vb”] 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
[/code]
これで、パスワードのマスクの表示・非表示をチェックボックスで選択できるようになります。





![【Amazon.co.jp限定】タオル研究所 [ボリュームリッチ] #003 フェイスタオル スモーキーブルー 5枚セット ホテル仕様 厚手 ふかふか ボリューム 高速吸水 耐久性 綿100% 480GSM JapanTechnology](https://m.media-amazon.com/images/I/513GA5KvQRL._SL160_.jpg)







