Omezení platnosti dokumentu - Excel VBA

Úvodem

Obdržel jsem zajimavý dotaz. Jak zamezit otevření starého dokumentu. Když už jsem psal odpověď, proč ji zárověň nepublikovat, třeba pomůže i někomu jinému.

Pokud máte na webu ke stažení ceník výrobku v Excelu, je vhodné tomuto dokumentu určit platnost. Po spuštění neaktuálního ceníku obdrží uživatel informaci, že je neaktuální a případně můžeme tento dokument automaticky zavřít. Jak na to popíšu v tomto článku.

VBA kód

Pro zjištění, zda je dokument platný. Jednoduchá verze která zjistí zda je dokument starší než aktuální datum. V případě že ano zobrazí dialogové okno.

Private Sub Workbook_Open() PlatiDo = DateValue("30.11.2011") 'plati do 30.11.2011 Dnes = Date If PlatiDo < Dnes Then MsgBox "Dokument je již neplatný." End If End Sub

Poznámka: Nahrát do ThisWorkBook

VBA kód 2

Rozšíření předchozího příkladu o automatické uzavření neplatného dokumentu v MS Excelu.

Private Sub Workbook_Open() PlatiDo = DateValue("30.11.2011") 'plati do 30.11.2011 Dnes = Date If PlatiDo < Dnes Then MsgBox "Dokument je již neplatný. Stahněte si novou verzi na officel.lasakovi.com, tento ceník bude uzavřen." End If ActiveWorkbook.Close False End Sub

Poznámka: Dialogové okno můžeme doplnit o informaci, kde může čtenář najít aktuální verzi.

Další možností rozšíření?

Jelikož možností jak výše uvedený kód rozšířit je spousta, pokusím se doplnit dle dotazů v komentářích.

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře