Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как отключить редактирование в текстовом поле, чтобы предотвратить ввод пользователя в Excel?

В этой статье мы говорим об отключении редактирования в текстовом поле (ActiveX Control) или нескольких текстовых окнах (ActiveX Control), чтобы предотвратить ввод пользователя в Excel.

Отключить редактирование в текстовом поле, изменив его свойства

Отключить редактирование в нескольких текстовых блоках с помощью кода VBA

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

Отключить редактирование в текстовом поле, изменив его свойства


В этом разделе вы увидите, как изменить свойства текстового поля, чтобы отключить редактирование этого текстового поля. Пожалуйста, сделайте следующее.

1. Включите режим разработки, нажав разработчик > Режим проектирования, Смотрите скриншот:

2. Щелкните правой кнопкой мыши текстовое поле и щелкните Недвижимость из контекстного меню, как показано ниже.

3. В открытии Недвижимость диалоговое окно, выберите Ложный , который относится к Включено и затем закройте диалоговое окно «Свойства». Смотрите скриншот:

Теперь выделенное текстовое поле является серым и не может редактировать.


Отключить редактирование в нескольких текстовых блоках с помощью кода VBA

Если вы хотите отключить редактирование в нескольких текстовых блоках на листе, пожалуйста, примените следующий код VBA.

1. На листе представлены несколько флажков, которые необходимо отключить, нажмите разработчик > Вставить > Флажок (элемент управления ActiveX) для установки флажка на рабочий лист. Смотрите скриншот:

2. Установите флажок правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Смотрите скриншот:

3. в Microsoft Visual Basic для приложений окна, замените исходный код на следующий код VBA.

Код VBA: отключить редактирование в нескольких текстовых окнах

Private Sub CheckBox1_Click()
    Dim xTextBox As OLEObject
    Dim xFlag As Boolean
    Dim I As Long
    Dim xArr
    xArr = Array("TextBox1", "TextBox2", "TextBox3")
    xFlag = True
    If Me.CheckBox1 Then xFlag = False
    For Each xTextBox In ActiveSheet.OLEObjects
        If TypeName(xTextBox.Object) = "TextBox" Then
            For I = 0 To UBound(xArr)
                If xTextBox.Name = xArr(I) Then
                    xTextBox.Enabled = xFlag
                End If
            Next
        End If
    Next
End Sub

Примечания:

1. В коде, CheckBox1 это имя вашего вставленного флажка. А также TextBox1, TextBox2и TextBox3 это текстовые поля, которые вы отключите редактирование на листе. Пожалуйста, измените их, как вам нужно.

2. Чтобы отключить редактирование для большего количества текстовых полей, добавьте имя текстового поля, включающее двойные кавычки в строку xArr = Array ("TextBox1", "TextBox2", "TextBox3").

4. Затем сохраните и закройте код, выключите режим дизайна, теперь, установив флажок, все текстовые файлы, которые невозможно редактировать на рабочем листе, не будут изменены. Смотрите скриншот:

Внимание: Если вы снимите флажок, текстовые поля можно снова отредактировать.


Статьи по теме:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.