Como verificar rapidamente se um arquivo (pasta de trabalho) está aberto ou fechado no Excel?

No trabalho diário do Excel, você abre várias pastas de trabalho ao mesmo tempo para trabalhar, mas às vezes, centenas de pastas de trabalho podem confundir sua cabeça para lembrar se uma pasta de trabalho específica está aberta ou fechada. Abandone o método tradicional de verificar arquivos um por um; aqui eu apresento a você os truques para encontrar rapidamente se uma pasta de trabalho está aberta ou fechada.

Verifique se uma pasta de trabalho está aberta ou fechada com VBA

Verifique se uma pasta de trabalho está aberta ou fechada com Kutools para Excel

Verifique se uma pasta de trabalho está aberta ou fechada com VBA

Aqui está um código VBA que você pode executar para verificar se uma pasta de trabalho específica está aberta ou fechada.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e depois copie e cole o VBA na nova janela Módulo.

VBA: Verifique se uma pasta de trabalho está aberta ou fechada

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. E pressione F5 para executar este VBA, e uma caixa de diálogo aparecerá para informar se a pasta de trabalho específica está aberta ou não.
    

Dica: No VBA acima, “combine” é o nome da pasta de trabalho que você deseja verificar, você pode alterá-lo conforme necessário.

Verifique se uma pasta de trabalho está aberta ou fechada com Kutools para Excel

Se você não está familiarizado com VBA, você pode verificar se uma pasta de trabalho está aberta com Kutools para Excel, usando seu painel de Navegação, que ajudará você a ver claramente todas as pastas de trabalho abertas na lista de pastas de trabalho do painel.

Após instalar gratuitamente Kutools para Excel, faça o seguinte:

1. Clique Kutools > Navegação para ativar o painel de Navegação. Veja a captura de tela:

2. Em seguida, clique Pasta de Trabalho e Planilha botão para expandir o painel e ir para Pasta de Trabalho e Planilha seção. E você pode visualizar todas as pastas de trabalho abertas na lista superior. Veja a captura de tela:

Com o painel de Navegação, você também pode alternar rapidamente entre as pastas de trabalho ou planilhas na lista.

Clique aqui para saber mais sobre Navegação.

Demonstração: Como criar uma lista dinâmica de nomes de planilhas no Excel?