Otestujte, či sú zošity otvorené
Tu je skutočný základný kód na testovanie, ak je zošit aktuálne otvorený testovaním názvu zošita, nie úplného názvu vrátane cesty.
Písal som kód do tabuľky, ktorá menila listy v inom zošite, a chcel som sa uistiť, že zošit 2 bol otvorený pred spustením kódu v zošite 1.
Sub TestByWorkbookName () Dim wb ako zošit pre každý wb v zošitoch If wb.Name = "New Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Ukončite Sub 'volací kód tu, teraz len skončíme End If Next End Sub