Получение данных в форму VBA из ячейки Excel

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

В продолжение темы, вопрос оказался интересным:
в окно с результатом ведь тоже можно будет вводить значения. а как запретить ввод?
Код:
TextBox1.enabled = false
но в этом случае текст данных в TextBox-е - неактивен, серый.
Решил попробовать сделать просто запрет ввода данных, без enabled = false, и нашел по этому вопросу, запрет чего угодно - но не ввода http://www.msoffice.nm.ru/faq/macros/ms ... htm#faq185
Здесь получается ситуация, приблизительно похожая на защиту листа.

Код: Выделить всё

Sheets("Лист1").Protect Password:="123", UserInterfaceOnly:=True
Когда работа макросам разрешается, а пользователям - нет.
Можно ли сделать такое с TextBox-ом ?
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Можно ли сделать такое с TextBox-ом ?
легко ;)

Код: Выделить всё

TextBox1.Tabstop = False ' чтобы не выбиралось табуляцией
.........................
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   KeyAscii = 0 'ничего вводить нельзя
End Sub
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Aent, спасибо!
Вот теперь - то что нужно :)
Просто, как все гениальное ;)
Чёт я до этого не додумался :( , наверное спать пора :)
***
Пользуясь случаем, хочу еще раз поблагодарить за VBE Tools.
Сижу конструирую форму и вспоминаю Вас. ;)
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

ViktorM,пожалуйста :)
Чем могу ...
Ответить