excel vba でユーザーフォーム入力ができない

お世話になります。
ボタンをクリックするとユーザーフォームが立ち上がり、パスワードを入力後
非表示シートを表示させて、データが入力する。とものを作成しましたが
シートを入力し保存後、ユーザーフォームを立ち上げるとパスワードが入力できない状態です。
カーソルはテキストボックスに入りますが文字が打てません。
ユーザーフォームを立ち上げる前に保存をしなければ問題ないのですが・・・
このような事は不可解でわからません。
ご教授をお願い致します。

Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
UserForm1.TextBox1.SetFocus
End Sub

No.2 回答者： rukaandkaito 回答日時： 2022/12/13 19:05

パスワード入力を求めるのであればモーダルにする方が良いのでは？

vbModelessをvbModalに変えてみてください。フォーカスがエクセルシートの方にあるように思われます。
セットフォーカスの命令はユーザーフォーム側に記載しないとユーザーフォーム表示後にコマンドボタンクリックの処理に帰ってきていますのでそれが原因ではないかと推察します。

この回答へのお礼

ご連絡が遅くなりました。
IMEの入力不具合でした。
IMEをOFFにすると治りました。
ありがとうございました。

お礼日時：2022/12/20 10:18

No.1 回答者： rexfan 回答日時： 2022/12/13 17:58

TextBox1のLockがTrueになってませんか

この回答へのお礼

ご連絡が遅くなりました。
IMEの入力不具合でした。
IMEをOFFにすると治りました。
ありがとうございました。

お礼日時：2022/12/20 10:18