Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment vérifier rapidement si un fichier (classeur) est ouvert ou fermé dans Excel?

Excel travail quotidien, vous ouvrez plusieurs classeurs en même temps pour travailler, mais parfois, les centaines de classeurs peuvent gâcher votre tête à se rappeler si un classeur spécifique est ouvert ou fermé. Abandonnez la méthode traditionnelle sur la vérification des fichiers un par un, ici je vous présente les astuces pour trouver rapidement un classeur est ouvert ou fermé.

Vérifiez si un classeur est ouvert ou fermé avec VBA

Vérifier si un classeur est ouvert ou fermé avec Kutools for Excel bonne idée3


Volet de navigation - Workbook & Sheet (voir tous les classeurs ouverts sont la liste, et toutes les feuilles
du classeur actuel sont liste dans le volet, vous pouvez cliquer sur le nom de la feuille pour y accéder.)

doc liste de navigation

Vérifiez si un classeur est ouvert ou fermé avec VBA


Voici un code VBA que vous pouvez exécuter pour vérifier si un classeur spécifique est ouvert ou fermé.

1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module puis copiez et collez le VBA à la nouvelle Module fenêtre.

VBA: vérifier si un classeur est ouvert ou fermé

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. Et appuyez F5 clé pour exécuter ce vba, et une boîte de dialogue apparaît pour vous rappeler que le classeur spécifique est ouvert ou non.
doc vérifier si un fichier ouvert 1 doc vérifier si un fichier ouvert 2

Pointe: Dans la VBA ci-dessus, "combiner"Est le nom du classeur que vous voulez vérifier, vous pouvez le faire selon vos besoins.


Vérifier si un classeur est ouvert ou fermé avec Kutools for Excel

Si vous n'êtes pas familier avec VBA, vous pouvez vérifier si un classeur est ouvert par Kutools for Excel, avec ses Navigation volet, qui vous aidera à afficher clairement tous les classeurs ouverts dans la liste du classeur du volet.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

1. Cliquez Kutools > Navigation pour activer le volet de navigation. Voir la capture d'écran:
doc vérifier si un fichier ouvert 3

2. Puis clique Cahier de travail et feuille bouton pour développer le volet pour aller à Cahier de travail et feuille section. Et vous pouvez voir tous les classeurs ouverts dans la liste supérieure. Voir la capture d'écran:
doc vérifier si un fichier ouvert 4

Avec Navigation Dans le volet, vous pouvez également basculer rapidement entre les classeurs ou les feuilles de la liste.

Cliquez ici pour en savoir plus sur la navigation.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    matheus · 6 months ago
    I add this to my code but im having some issues...

    I use ur function to check if a workbook with i take some information from is already open or not, if it is open, the macro msgbox the user, telling him to close the workbook and restart the macro, till here, everything ok, the problem is, after closing the workbook and restarting the macro, it keeps saying the workbook is open while its not, any tips?


    Code:


    Sub Check_BKG()

    Set wa = Nothing

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

    '--------------------------------------------------------------------------------------------'
    '////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
    '--------------------------------------------------------------------------------------------'
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("EXSH0101.xlsx")
    If xRet Then
    MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
    'MsgBox "The EXSH0101 file is already open, please close it before restart the macro.", vbInformation, "EXSH0101 ERROR"
    Exit Sub
    End If
    '--------------------------------------------------------------------------------------------'
    '////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
    '--------------------------------------------------------------------------------------------'

    With Application
    .EnableEvents = False
    .ScreenUpdating = False
    End With

    Call Abrir_Arquivos

    Call Setando_EXSH

    Call Inserir_Formulas

    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    End With

    wb.Sheets("Inserir").Activate

    End Sub
  • To post as a guest, your comment is unpublished.
    Joe · 9 months ago
    Just want to make sure everyone is aware, the "IsWorkBookOpen" function will only be able to tell if a workbook is open in the current instance of Excel. If you have multiple instances open you would need to run it on each instance to be sure the workbook is (not) open, using this code alone.
  • To post as a guest, your comment is unpublished.
    Dawid · 9 months ago
    Wow, super VBA, simple and works. Thank you very much :)
  • To post as a guest, your comment is unpublished.
    Eddie · 1 years ago
    Excellent VBA, works great. Thanks.