非表示テキストフィールドに値をセットする方法

質問

非表示となっているテキストフィールドへ
ユーザーからの入力を受ける方法はあるのでしょうか？
（イメージ的には、テキストフィールドは非表示になっているが、
フォーカスは当たっている状態）

以上、よろしくお願いします。

回答No.1

imogasi

>イメージ的には、テキストフィールドは非表示になっているが、
フォーカスは当たっている状態）
がおかしい（実現できない）のでは。
後の回答者のために、下記ではおかしいとか何かコメントしてみて。
Private Sub UserForm_Click()
UserForm1.TextBox1.Visible = False
a = InputBox("")
UserForm1.TextBox1.Value = a
MsgBox UserForm1.TextBox1.Value
UserForm1.TextBox1.Visible = True
End Sub

お礼

回答ありがとうございます。

InputBoxは入力フィールドが画面上から見えるので
残念ながら私のイメージしているものとは異なります。

> >イメージ的には、テキストフィールドは非表示になっているが、
> フォーカスは当たっている状態）
> がおかしい（実現できない）のでは。

私自身もおかしいことは十分認識した上で質問しております。
具体性に欠けた質問をしましたが、やりたいことは
バーコードリーダでバーコードを読み取った際に
読み取った文字列を表示させない方法を模索しているのです。
（UseSystemPasswordCharで*表示にすることもＮＧです）

何か方法がございましたらご教示願います。