エクセルVBA InputBoxで入力欄を*****

VBAのInputBoxでパスワードを入力させるようにしているのですが、入力欄に入れた文字は当然ながらそのまま表示されます。
これをいかにもパスワードの入力のように入力数字を****と表示させることはできないものでしょうか？

No.4 ベストアンサー 回答者： quit123 回答日時： 2005/03/25 18:10

再びこんにちは。

以下のようにしてみてください


●パスワードを「abc123」とした場合

----------------------------------------------
Private Sub CommandButton1_Click()

　　If TextBox1.Text = "abc123" Then
　　　　Unload Me
　　Else
　　　　TextBox1.Text = ""
　　　　TextBox1.SetFocus
　　End If

End Sub
-----------------------------------------

バスワードが違ったら再入力へ


なお、Unload Me のところは

Unload Userform1
Me.Hide
Userform1.Hide

意味は違いますがどれでも可です。
　

この回答へのお礼

ありがとうございます。
ばっちりです♪

お礼日時：2005/03/25 18:17

No.5 回答者： noname#112806 回答日時： 2005/04/04 11:49

もうすでに他の方の方法で実現できていると思いますが、参考までにInputBox関数でのやり方を示しておきます。

といっても、海外の「Daniel Klann」という方の作成したコードになります。
URLを示してもよいかどうか分からないのでGoogle等で検索してみてください。
「Daniel Klann InputboxDK」で検索すれば見つかると思います。
自分もAccessで同じように悩みましたが、この方法で解決しました。

この回答へのお礼

締め切ったあとからすばらしい回答をいただき、ありがとうございます。
検索してみましたらみんな英語のページなんですねえ、
とっても苦手なんですよ（笑）

でもVBAは万国共通でしょうからなんとか勉強してみます。
ご親切、ありがとうございました。

お礼日時：2005/04/04 14:43

No.3 回答者： quit123 回答日時： 2005/03/25 17:10

それはInputBoxでは出来ませんので

自分でパスワード入力ダイアログを作ってやります。

UserFormにTextBoxを貼り付け、
TextBoxのPasswordCharプロパティに「＊」をセット
すれば簡単に実現できます。

試してみて下さい。

この回答への補足

ありがとうございます。
試してみました。

Sub password()
UserForm1.Show
End Sub

でユーザーフォームを出し、配置したTextBox1に「*****」を表示させ、
ユーザーフォーム上のコマンドボタンで

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

で閉じるまではできました。

ただ、どうやってTextBox1の値を取得するのでしょうか？

補足日時：2005/03/25 17:52

No.2 回答者： big_fool 回答日時： 2005/03/25 16:06

プロパティーのPasswordCharに＊を設定してみてはいかがでしょう

この回答への補足

InputBoxだったのですが、無理のようですね。
ありがとうございます。

ユーザーフォームのTextBox1の値をどうやって取得するのでしょうか？

補足日時：2005/03/25 17:53

No.1 回答者： denbee 回答日時： 2005/03/25 15:58

テキストボックスであればpasswordcharプロパティで

そのような設定が可能なようです。

この回答への補足

テキストボックスではなくInputBox関数なんです。
不可能ですかね？

補足日時：2005/03/25 17:13