Как разрешить обновление внешних данных в защищенном листе Excel?
Вы, возможно, импортировали данные из других приложений в Excel с помощью встроенной функции — Получить внешние данные, и легко обновляли импортированные данные с помощью кнопки «Обновить все». Однако после защиты листа кнопка «Обновить все» становится недоступной, и импортированные данные больше не могут быть обновлены. Как разрешить обновление внешних данных в защищенном листе? Метод, описанный в этой статье, может помочь вам.
Разрешение обновления внешних данных в защищенном листе с помощью кода VBA
Разрешение обновления внешних данных в защищенном листе с помощью кода VBA
Следующий код VBA поможет вам обновить импортированные внешние данные после защиты листа в Excel. Пожалуйста, следуйте инструкциям ниже.
1. В защищенном листе одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте и вставьте следующий скрипт VBA в окно Модуля. См. скриншот:
Код VBA: Разрешение обновления внешних данных в защищенном листе
Sub DataRefresh()
'Update by Extendoffice 5/28/2019
ActiveSheet.Unprotect "123"
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2 ()
If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
Else
ActiveSheet.Protect "123"
End If
End Sub
Примечание: В коде VBA «123» — это пароль, который мы указали для защиты листа. Пожалуйста, измените его в зависимости от ваших потребностей.
3. Убедитесь, что курсор находится в первой секции кода Sub DataRefresh, а затем нажмите клавишу F5 для запуска кода. В появившемся диалоговом окне Импорт файла выберите внешний файл, из которого вы импортировали данные, и нажмите кнопку Импорт.
После возврата к листу вы увидите, что внешние данные обновились немедленно.
Примечание: Этот код может обновлять внешние данные в защищенном листе, которые были импортированы из Access, текстового файла или файла Excel.
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Связанные статьи:
- Как разрешить редактирование объектов в защищенном листе Excel?
- Как разрешить объединение ячеек в защищенном листе Excel?
- Как разрешить проверку правописания в защищенном листе Excel?
- Как защитить форматирование ячеек, но разрешить только ввод данных в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек