Прескочи на основното съдържание

Как да разрешите опресняване на външни данни в защитен работен лист в Excel?

Автор: Силувия Последна промяна: 2020-09-04

Може да сте импортирали данни от други приложения в 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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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