ループを使ってテキストボックスにマスクをかける

質問

以前質問した「テキストボックスの名前に変数をつける」の
続きです。
取得した数をループを使ってテキストボックスに
挿入するのは、下記の方法で出来たのですが、

For 回数 = 1 To 挿入回数

Controls("Text" & カウンタ).Text = 取得した数
カウンタ = カウンタ + 1
Next

これと同様に、ループを使って
挿入したテキストボックスにマスクをかける
（テキストボックスに入力不可状態にする）
方法はあるのでしょうか？
Lockedとか使ってみてもダメでした。

回答No.3

taka_tetsu · ベストアンサー

Controls("Text" & カウンタ).Locked = True
でだめですか？

もしくは
Controls("Text" & カウンタ).Enabled = False
でだめですか？

お礼

＞回答者の皆様

ありがとうございました。
皆様の書き込みを参考にし、
マスクをかけれました(^^;

回答No.2

imogasi

Formにテキストボックスを貼り付けているとして、1つは貼り付け、あと２つはコピーでコントロール配列です。
FormのイベントＰｒｏｃに
Private Sub Form_Click()
Call test01
End Sub
Module1に
Sub test01()
For i = 0 To 2
Form1.Text1(i).Enabled = False
Next i
End Sub
と入れ、Formをクリックするとテキストボックス３つとも
使えなくなりました。

回答No.1

kazuhiko5681

テキストボックスのEnabledプロパティをFalseに設定すると入力ができなくなります。
Me.Text1.Enabled = False
これで、Text1は入力不可状態になります。