Excel VBA - IF Error/screenupdating/dialogové okno

[Branscombe]

Ahoj, potřeboval bych pomoci s makrem v excelu. Potřebuji mu říct následující:

1. když nastane jakákoliv chyba v makru, skryj list "aa" a ukonči makro
2. Application ScrrenUpdating = False ikdyž makrem otevíraný soubor má v autoopen application screenudpating = True - prostě permanentně zakázána aktualizace obrazovky
3. Nevím proč, ale občas mi vyskočí dialogové okno, zda-li opravdu chci vymazat konttingenční tabulku, tak kdyby mu šlo nějak říct aby toto dialog. okno nevyskakovalo ...

předem moc díky za rady ...

[navstevnik]

ad 1. projdi si http://www.cpearson.com/excel/ErrorHandling.htm (preklad zajisti Google), kde najdes potrebne postupy, priklad:

Kód: Vybrat vše

Sub tst()

On Error GoTo ErrHandler
' zde je prikaz vyvolavajici chybu
On Error GoTo 0
' dalsi prikazy

Exit Sub

ErrHandler:
Worksheets("name").Visible = False

End Sub

ad 3. v procedure pouzij Application.DisplayAlerts=False pred radkem, kde vznika hlaseni a ukonci za Application.DisplayAlerts=True
ad 2. bez konkretni ukazky tezko rict, kde je zakopany pes, ale krokuj procedury a kontroluj, kde plati zakaz aktualizace obrazovky a kde ne

PS.: a prejdi od prehistorickeho autoopen k procedure Sub Workbook_Open() v modulu sesitu.

[Branscombe]

Super, díky moc ...