Jste zde: Úvodní stránka » excel » vba-soubory » excel-vba-omezeni-platnosti-dokumentu

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: 28.01.2012 20:11

---

---

Další články k tématu

• Zpracovatelné formáty souborů v Excelu
• Existuje soubor - adresář (složka)
• Vypis cesty k souboru
• Vypsat adresáře - soubory
• Je soubor otevřen
• Otevřít soubor s heslem
• Otevřít soubor a předat mu nějaký parametr
• Tisk do *.pdf
• Smazat soubor
• Vytvořit smazat adresář
• Kopírovat a přejmenovávat soubory
• Omezení platnosti souboru - dokumentu - právě čtete
• Kdo přistupuje do souboru
• Velikost souboru
• Je atribut souboru pouze pro čtení - VBA Excel

Komentáře

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek