Добрый день!
Пожалуйста, помогите разобраться.
 Не могу понять, почему не получается.
Если есть ошибка в дате, для примера TextBox5_Date ="32.01.24", появляется сообщение.

Private Sub TextBox5_Date_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox5_Date ="32.01.24"
Msgbox "Ошибка даты."
Cancel=True

End sub

Если UserForm1 Show vbModal -всё работает. Курсор виден и возможно редактирование. Активны ВСЕ клавиши. Вновь вводимый текст виден.

Если же UserForm1 Show vbModeless - курсор пропадает(становится невидимым).
Ввод текста не получается. Такое ощущение - кнопки текста заблокированы.

Хотя, также активны клавиши: Backspace, Del, стрелки влево и вправо, Home и End.  Невидимый курсор перемещается вдоль текста с помощью клавиш стрелки влево и вправо, Home и End. Это заметно по удалению текста.
Первоначальный текст с помощью клавиш Backspace и Del удаляется.

И только после нажатия левой клавишей мыши в TextBox5_Date  - он вновь "оживает" .

Пытался добавлять  в различных комбинациях - безуспешно:
TextBox5_Date.Visible = True
TextBox5_Date.SetFocus
TextBox5_Date.SelStart = Len(.TextBox5_Date)
TextBox5_Date.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection


Надеюсь на Вашу помощь. Как сделать видимым курсор и осуществить ввод текста.
Спасибо.

Спасибо за информацию. Обязательно посмотрю.  

Большое спасибо!

Спасибо за ответ.
А если массив переменных состоит из разных названий  Mas = array(Texbook1_Date, ComboBox1_P,  ListBox4_Itog.BackColor  и т.д.)
Как можно с помощью цикла им  присвоить значения ?

Добрый день, Уважаемые специалисты! Надеюсь с вашей помощью разобраться в данном случае.
Есть 10 Texbook, в которые из 10 ячеек таблицы вставляю данные. Создаю из этих 10 Texbook массив.
dim Mas()     Mas = array(Texbook1,Texbook2,........Texbook10)
For i=Lbound(Mas) to Ubound(Mas)  Mas(i)= cells(i+1,1)  next i   'при таком способе ничего не получается. Значения не присваиваются Texbook.
Как можно с помощью массива или другим способом присвоить значения Texbook1,Texbook2 и т.д. с помощью цикла For ?
И еще.  Можно ли добавлять к названию Texbook & i (переменную), чтобы упростить макрос?
Спасибо.