Note: The other languages of the website are Google-translated. Back to English
English English

Jak povolit obnovení externích dat v chráněném listu v aplikaci Excel?

Možná jste importovali data z jiných aplikací do aplikace Excel pomocí její vestavěné funkce - Získat externí data a importovaná data snadno aktualizovali pomocí tlačítka Obnovit vše. Po ochraně listu je však tlačítko Obnovit vše deaktivováno a importovaná data již nelze aktualizovat. Jak povolit obnovení externích dat v chráněném listu? Metoda v tomto článku vám může pomoci.

Povolte obnovení externích dat v chráněném listu pomocí kódu VBA


Povolte obnovení externích dat v chráněném listu pomocí kódu VBA


Níže uvedený kód VBA vám pomůže obnovit importovaná externí data po ochraně listu v aplikaci Excel. Postupujte prosím následovně.

1. V chráněném listu stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte a vložte níže uvedený skript VBA do okna modulu. Viz screenshot:

Kód VBA: Povolte obnovení externích dat v chráněném listu

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

Poznámka: V kódu VBA je „123“ heslo, které jsme zadali k ochraně listu. Změňte to prosím podle svých potřeb.

3. Ujistěte se, že je váš kurzor v první části kódu Sub DataRefresh, a poté stiskněte F5 klíč ke spuštění kódu. Ve vyskakovacím okně import souborů V dialogovém okně vyberte externí soubor, ze kterého jste importovali data, a poté klikněte na ikonu import .

Po návratu do listu uvidíte, že se externí data okamžitě aktualizují.

Poznámka: Tento kód může aktualizovat externí data v chráněném listu, který se importuje ze souboru aplikace Access, Text i Excel.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dzięki bardzo pomocne makro. Pozdrawiam
Tento komentář byl moderátorem webu minimalizován
jednodušší způsob je popsán zde: https://stackoverflow.com/a/22088630/1349511

ThisWorkbook.RefreshAll
DoEvents
' kód nebude pokračovat, dokud nebude aktualizace dokončena
Tento komentář byl moderátorem webu minimalizován
omlouvám se, nesprávně - nejprve si přečtěte komentáře na stackoverflow!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění