Přeskočit navigaci | Přeskočit na novinky

Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-ukonceni-makrem

Ukončení aplikace (uzavření sešitu) - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak ukončit práci Excelu, případně sešitu. Excel se sám ukončí ... aneb jak někoho zmást :)

Doplněno 10.4.2013

Microsoft Excel VBA logo

Úvodem

V článku se dozvíte jak lze pomocí VBA ukončovat otevřené sešity, nebo uzavřít přímo aplikaci Microsoft Excel. Článek je rozdělen na tyto kapitoly:


Zavření aktuálního sešitu

Zavře aktivní sešit a umožňí uživateli rozhodnout, zda případné změny, mají být uloženy.

ActiveWorkbook.Close

Zavřít sešit bez uložení změn.

ActiveWorkbook.Close False ' Zavře aktivní sešit bez uložení změn ' možno zapsat i takto ' ActiveWorkbook.Close SaveChanges:=False

Zavřít sešit a uložit změny.

ActiveWorkbook.Close True ' Zavře aktivní sešit a uloží všechny změny ' další možnost uložení ' ActiveWorkbook.Close SaveChanges:=True

Další možná doplnění

' Zabranění zobrazení systemových hlášek Application.DisplayAlerts = False

Zavření zvoleného sešitu

Chceteli zavřít určitý sešit (neaktivní)

Workbooks("sesit.xls").close False ' Workbooks("sesit.xls").Close SaveChanges:=False

Ukončení aplikace Excel

Ukončení aplikace Excel se provede příkaze Application.Quit

Application.Quit

Automatické ukončení aplikace Excel

Potřebujeme za 30 vteřin po spuštění makra ukončit Excel. Řešení je jednoduché. Použijeme v prvním makru funkci OnTime, která po 30 vteřinách spustí druhé makro s funkcí pro vypnutí (a zamezení chybových hlášek).

Kód se skládá ze dvou části:

Část 1

Sub Ukonci30sec() Application.OnTime Now + TimeValue("00:00:30"), "MujKonec" End Sub

Část 2

Sub MujKonec() Application.DisplayAlerts = False Application.Quit End Sub

Závěrem

Využíváte automatické ukončování vašich sešitů?

Článek byl aktualizován: 19.09.2020 11:07

Podpora - oceňte web a pozvěte mě na čokoládu

Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.

Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .

Poděkování

Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.

Vylepšení

Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.

   Pavel Lasák LinkedIn Profil    Pavel Lasák twitter Profil





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |