Note: The other languages of the website are Google-translated. Back to English

Jak rychle zkontrolovat, zda je soubor (sešit) otevřený nebo uzavřený v aplikaci Excel?

Excel denní práce, otevřete několik sešitů najednou pro práci, ale někdy vám stovky sešitů mohou pokazit hlavu, aby si pamatovaly, zda je konkrétní sešit otevřený nebo uzavřený. Vzdejte se tradiční metody kontroly souborů jeden po druhém, zde vám představuji triky, jak rychle najít otevřený nebo uzavřený sešit.

Zkontrolujte, zda je sešit otevřený nebo uzavřený pomocí VBA

Zkontrolujte, zda je sešit otevřený nebo uzavřený pomocí Kutools pro Excel dobrý nápad3


Zkontrolujte, zda je sešit otevřený nebo uzavřený pomocí VBA

Zde je kód VBA, který můžete spustit a zkontrolovat, zda je konkrétní sešit otevřený nebo uzavřený.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul a poté zkopírujte a vložte VBA do nového Modul okno.

VBA: Zkontrolujte, zda je sešit otevřený nebo zavřený

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. A stiskněte F5 klíč ke spuštění této VBA a objeví se dialogové okno, které vám připomene, že konkrétní sešit je otevřený nebo ne.
kontrola dokumentů, zda je soubor otevřený 1     kontrola dokumentů, zda je soubor otevřený 2

Tip: Ve výše uvedeném VBA „kombinovat„Je název sešitu, který chcete zkontrolovat, můžete jej, jak potřebujete.


Zkontrolujte, zda je sešit otevřený nebo uzavřený pomocí Kutools pro Excel

Pokud nejste obeznámeni s VBA, můžete zkontrolovat, zda je otevřen sešit Kutools pro Excel, s jeho Navigace podokno, které vám pomůže jasně zobrazit všechny otevřené sešity v seznamu sešitů v podokně.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools > Navigace pro povolení navigačního podokna. Viz screenshot:
kontrola dokumentů, zda je soubor otevřený 3

2. Pak klikněte na tlačítko Sešit a list tlačítko rozbalte podokno a přejděte na Sešit a list sekce. V horním seznamu můžete zobrazit všechny otevřené sešity. Viz screenshot:
kontrola dokumentů, zda je soubor otevřený 4

S Navigace v podokně můžete také rychle přepínat mezi sešity nebo listy v seznamu.

Kliknutím sem získáte další informace o navigaci.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Vynikající VBA, funguje skvěle. Dík.
Tento komentář byl moderátorem webu minimalizován
Páni, super VBA, jednoduché a funguje. Děkuji mnohokrát :)
Tento komentář byl moderátorem webu minimalizován
Chcete-li se ujistit, že všichni vědí, funkce „IsWorkBookOpen“ bude schopna zjistit, zda je sešit otevřený v aktuální instanci aplikace Excel. Pokud máte otevřených více instancí, budete je muset spustit v každé instanci, abyste se ujistili, že sešit je (ne)otevřený, a to pouze pomocí tohoto kódu.
Tento komentář byl moderátorem webu minimalizován
děkujeme za připomenutí.
Tento komentář byl moderátorem webu minimalizován
Přidávám to do svého kódu, ale mám nějaké problémy...

Používám ur funkci ke kontrole, zda je sešit, ze kterého převezmu nějaké informace, již otevřený nebo ne, pokud je otevřený, zobrazí se zpráva s makrem uživateli, která mu říká, aby sešit zavřel a restartoval makro, až sem je vše v pořádku, problém je v tom, že po zavření sešitu a restartování makra to stále říká, že sešit je otevřený, zatímco není, nějaké tipy?


Kód:


Sub Check_BKG()

Nastavit wa = nic

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Pokud Confirmação = vbNo Pak Exit Sub

'------------------------------------------------- --------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- --------------------------------------------'
Dim xRet jako Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Pokud xRet Then
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "Soubor EXSH0101 je již otevřen, před restartováním makra jej prosím zavřete.", vbInformation, "EXSH0101 ERROR"
Konec Sub
End If
'------------------------------------------------- --------------------------------------------'
'///////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- --------------------------------------------'

S aplikací
.EnableEvents = False
.ScreenUpdating = False
Konec s

Zavolejte Abrir_Arquivos

Zavolejte Setando_EXSH

Zavolejte Inserir_Formulas

S aplikací
.EnableEvents = True
.ScreenUpdating = True
Konec s

wb.Sheets("Inserir").Aktivovat

End Sub
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL