Zobrazení výzvy k potlačení uložení změn při zavření sešitu v aplikaci Excel

Poznámka: Snažíme se pro vás co nejrychleji zajistit aktuální obsah nápovědy ve vašem jazyce. Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát ve spodní části této stránky vědět, jestli vám informace v článku pomohly? Pokud byste se rádi podívali na jeho anglickou verzi, najdete ji tady.

Shrnutí

V Microsoft Excelu můžete vytvořit makro jazyka Microsoft Visual Basic for Applications (VBA), které při zavření sešitu Potlačí výzvu k uložení změn . To lze udělat buď zadáním stavu vlastnosti sešit, nebo potlačením všech upozornění pro daný sešit.

Další informace

PodívejteSpolečnost Microsoft nabízí příklady programování pouze pro ilustraci bez záruky výslovně uvedené nebo implicitně předpokládaných. To zahrnuje, ale není omezeno na implicitně odvozené záruky obchodovatelnosti nebo vhodnosti pro určitý účel. V tomto článku se předpokládá, že jste obeznámeni s programovacím jazykem, který se vám seznámí, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci podpory Microsoftu mohou vysvětlit funkčnost konkrétního postupu. Nicméně tyto příklady neupraví, aby bylo možné přidat další funkce nebo postupovat podle konkrétních požadavků. 

K přípravě na implementaci některého z níže uvedených příkladů udělejte nejdříve tyto kroky:

  1. Spusťte Excel a otevřete nový sešit.

  2. Stisknutím kombinace kláves ALT + F11 spusťte aplikaci Visual Basic Editor.

  3. V nabídce Vložit klikněte na modul.

  4. Do listu modulu napište kód ukázkového makra.

  5. Stisknutím kombinace kláves ALT + F11 se vrátíte do aplikace Excel.

  6. V Microsoft Office Excelu 2003 a v dřívějších verzích Excelu zvolte v nabídce nástroje příkaz makro a pak klikněte na makra.

    V aplikaci Microsoft Office Excel 2007 klikněte na tlačítko makra ve skupině kód na kartě vývojář

    Pokud není k dispozici karta vývojář, zvažte následující postup:

        na. Klikněte na tlačítko Microsoft Office a potom klikněte na Možnosti aplikace Excel.

    b. V kategorii Oblíbené v části Nejpoužívanější možnosti při práci s aplikací Excelkliknutím vyberte Zobrazit
            Na pásu karet na kartě Vývojář
    klikněte na OK.

  7. Vyberte požadované makro a klikněte na Spustit.

Pokud byly v sešitu od posledního uložení změny, vrátí funkce Save hodnotu false .

Pokud chcete určit makro, které se má spouštět při každém zavření sešitu, můžete použít vyhrazený název Auto_Close . V takovém případě můžete určit, jak se bude dokument zpracovávat, když ho uživatel zavře v Excelu.
 

Příklad 1: zavření sešitu bez uložení změn

Pokud chcete vynutit zavření sešitu bez uložení změn, zadejte do modulu Visual Basicu v tomto sešitu následující kód:
 

    Sub Auto_Close ()

        ThisWorkbook. uloženo = true

    End Sub

Pokud je vlastnost uloženo nastavena na hodnotu pravda, aplikace Excel odpoví, jako kdyby byl sešit už uložený, a od posledního uložení nenastaly žádné změny.


Vlastnost DisplayAlerts programu lze použít ke stejnému účelu. Následující makro například vypne DisplayAlerts , zavře aktivní sešit bez uložení změn a pak znovu zapne DisplayAlerts .
 

    Sub CloseBook ()

        Application. DisplayAlerts = false

        ActiveWorkbook. Close

        Application. DisplayAlerts = true

    End Sub

Můžete také použít argument SaveChanges metody Close .

Následující makro zavře sešit bez uložení změn:
 

    Sub CloseBook2()

        ActiveWorkbook.Close savechanges:=False

    End Sub

Příklad 2: zavření sešitu a uložení změn

Chcete-li, aby sešit uložil změny, zadejte následující kód do modulu Visual Basic daného sešitu:
 

    Sub Auto_Close ()

        Pokud ThisWorkbook. Save = false then

            ThisWorkbook. Ušetřete: if

    End Sub

Tento postup zkontroluje, jestli je vlastnost uložená v souboru nastavená na false. Pokud ano, došlo od posledního uložení ke změně sešitu a změny se uloží.

Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×