Блокировка определенных ячеек и создание сводной таблицы

Question

У меня есть рабочая книга, для которой я пытаюсь создать код vba, но я продолжаю сталкиваться с различными ошибками ... ошибка времени выполнения, ошибка объекта и т. Д.

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

Кроме того, мне нужны ответы для ячеек, содержащих градусы и местоположение, для подачи сводной таблицы.

Самым близким, что я получил, было использование функции If, но она не совсем охватывала все, что я хотел сделать. Пожалуйста, помоги, если можешь.

Answer 1

Если вы используете пользовательские формы для сбора данных, то, скорее всего, вы используете VBA для передачи данных пользовательской формы на рабочий лист. Если рабочая таблица защищена аргументом UserInterfaceOnly: = true, вы можете делать все, что захотите, с данными рабочей таблицы (например, добавлять / редактировать / удалять / и т. Д.) Через VBA, и пользователь не может вносить какие-либо изменения.

Запустите это один раз.

sub allowVBA()

    with thisworkbook.worksheets("sheet1")
        .unprotect password:="password"
        .protect password:="password", userinterfaceonly:=true
    end with

end sub