Otestujte, zda jsou sešity otevřené
Zde je skutečný základní kód pro testování, pokud je sešit aktuálně otevřen testováním názvu sešitu, nikoli plně kvalifikovaného názvu včetně cesty.
Psal jsem kód do tabulky, která měnila listy v jiném sešitu, a chtěl jsem zajistit, aby byl sešit 2 otevřený před spuštěním kódu v sešitu 1.
Sub TestByWorkbookName () Dim wb jako sešit pro každý wb v sešitech If wb.Name = "New Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Ukončete Sub 'volací kód zde, zatím jen ukončíme End If Next End Sub
