Ouverture fichier

Bonjour à tous,

Je voulais savoir si il y a un moyen de bloquer l'ouverture du même fichier excel via l'évènement open.

Merci à vous

Bonjour AZQW,

Oui bien entendu, si j'ai compris

Dans ThisWorkbook

Private Sub Workbook_Open()
  ' Vérifier si le classeur est en lecture seule
  If ThisWorkbook.ReadOnly = True Then
    MsgBox "Ce classeur est déjà ouvert par quelqu'un, vous ne pouvez pas l'utiliser pour le moment", vbInformation, "ATTENTION ..."
    Application.EnableEvents = False
    ThisWorkbook.Close SaveChanges:=False
  End If
End Sub

A+

Bonjour BrunoM45,

Dans ce cas il l'empêche si un autre utilisateur l'a d'ouvert ? Mais depuis mon pc ?

Parce qu'en fait, dans l'évènement open j'ai mis :

ThisWorkbook.Application.Visible = False

mais si je le force en cliquant encore plussieurs fois ça m'ouvre mon classeur à un moment donné.

Re,

Je ne vois pas comment depuis votre PC vous pouvez ouvrir 2 fois le même fichier

Je m'exprime certainement mal

Pour essayer de faire simple, j'ai ce code dans l'évènement open :

Private Sub Workbook_Open()

    ThisWorkbook.Application.Visible = False
    Accueil.Show modal

End Sub

Je souhaite cacher mon classeur car en formulaire s'ouvre.

Pour accéder au classeur, l'utilisateur doit saisir un mot de passe en un USF. (comme ça tout le monde n'y a pas accès).

Donc, lorsque je lance mon fichier, mon USF apparait, nickel.

Mais dès lors que je veux réouvrir mon fichier malgrès que celui-ci est déjà ouvert, au bout de quelques essais j'ai mon classeur qui s'ouvre tout de même.

C'est ca que je cherche à empécher,d'où mon idéé de bloquer l'ouverture si il est déjà ouvert.

Salut,

Pour ma part je ferais une gestion différente :

• On ouvre le classeur
• On arrive sur une feuille d'accueil
• Toutes les autres feuilles sont cachées xlSheetVeryHidden
• Si l'on entre le bon mot de passe alors on affiches certaines feuilles

Bonjour Jean-Paul,

Avec ta solution j'aurais toujours excel d'ouvert par contre ?

Là le but étant de tout masquer.

Ce qui m'intrigue c'est qu'à l'ouverture, le premier coup il met bien à "false" et si je veux l'éxécuter une 2eme fois il me le passe en "true" (puisqu'il m'ouvre le classeur)

Re-bonjour,

J'ai trouvé mon soucis, c'est simplement le mode modal qui gênait.

Effectivement, si je veux le cacher excel avec cette ligne

ThisWorkbook.Application.Visible = False

et qu'en même temps que je veux y avoir accès avec le mode modal

Accueil.Show modal

il y a un conflit .

du coup j'ai enlevé le mode modal. Il n'était pas très important donc ... poubelle !

Merci de m'avoir aidé

@+