Перейти к основному содержанию

Как разрешить обновление внешних данных на защищенном листе в Excel?

Возможно, вы импортировали данные из других приложений в Excel с помощью встроенной функции «Получить внешние данные» и легко обновили импортированные данные с помощью кнопки «Обновить все». Однако после защиты рабочего листа кнопка «Обновить все» отключается, и импортированные данные больше не могут быть обновлены. Как разрешить обновление внешних данных на защищенном листе? Метод, описанный в этой статье, может вам помочь.

Разрешить обновление внешних данных на защищенном листе с кодом VBA


Разрешить обновление внешних данных на защищенном листе с кодом VBA

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

1. На защищенном листе нажмите кнопку другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте и вставьте приведенный ниже сценарий 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, Text, а также из файла Excel.


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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
sorry, incorrect - read comments at stackoverflow first!
This comment was minimized by the moderator on the site
a more simple way is described here: https://stackoverflow.com/a/22088630/1349511

ThisWorkbook.RefreshAll
DoEvents
' code will not continue before Refresh finished
This comment was minimized by the moderator on the site
Dzięki bardzo pomocne makro. Pozdrawiam
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations