Przejdź do głównej zawartości

Jak zezwolić na odświeżanie danych zewnętrznych w chronionym arkuszu w programie Excel?

Być może zaimportowałeś dane z innych aplikacji do programu Excel za pomocą wbudowanej funkcji - Pobierz dane zewnętrzne i łatwo zaktualizowałeś zaimportowane dane za pomocą przycisku Odśwież wszystko. Jednak po zabezpieczeniu arkusza przycisk Odśwież wszystko jest wyłączony i zaimportowanych danych nie można już aktualizować. Jak zezwolić na odświeżanie danych zewnętrznych w chronionym arkuszu? Metoda opisana w tym artykule może ci pomóc.

Zezwalaj na odświeżanie danych zewnętrznych w chronionym arkuszu z kodem VBA


Zezwalaj na odświeżanie danych zewnętrznych w chronionym arkuszu z kodem VBA

Poniższy kod VBA może pomóc w odświeżeniu zaimportowanych danych zewnętrznych po zabezpieczeniu arkusza w programie Excel. Wykonaj następujące czynności.

1. W chronionym arkuszu naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy skrypt VBA do okna modułu. Zobacz zrzut ekranu:

Kod VBA: Zezwalaj na odświeżanie danych zewnętrznych w chronionym arkuszu

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

Note: W kodzie VBA „123” to hasło, które określiliśmy w celu ochrony arkusza. Zmień to w zależności od potrzeb.

3. Upewnij się, że kursor znajduje się w pierwszej sekcji kodu Sub DataRefresh, a następnie naciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Importować plik W oknie dialogowym wybierz plik zewnętrzny, z którego zaimportowałeś dane, a następnie kliknij import przycisk.

Po powrocie do arkusza możesz zobaczyć, że dane zewnętrzne są natychmiast aktualizowane.

Note: Ten kod może odświeżyć dane zewnętrzne w chronionym arkuszu, który został zaimportowany z programu Access, tekstu oraz pliku Excel.


Powiązane artykuły:

Najlepsze narzędzia biurowe

Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

karta kte 201905


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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