Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Empêcher l'ouverture d'un fichier Excel en cours d'utilisation

C

CL91220

XLDnaute Nouveau
Bonjour,

Lorsqu'on cherche à ouvrir un fichier en cours d'utilisation, Excel ouvre la boîte de dialogue intitulée "Fichier en cours d'utilisation" et propose les choix suivants: 'Lecture seule', 'Notifier' et 'Annuler'.
Je souhaite faire en sorte qu'il ne soit pas possible d'ouvrir ce fichier s'il est déjà utiliser.

J'ai rechercher dans les fonctionnalités de base offertes par Excel, mais je n'ai rien trouvé qui puisse répondre à mon pb.

Je me dis qu'en VBA, à l'ouverture du fichier excel, je peux changer un flag dans un fichier txt (de paramétrage) définissant l'état du fichier excel (en cours d'utilisation ou pas). Cela signifie que si une seconde personne ouvre le fichier excel disons en 'Lecture seule', je peux faire en sorte qu'une vérification du flag existe pour interdire si besoin l'utilisation de ce fichier... Pensez-vous que cette solution puisse être efficace? Si Excel plante, le flag ne sera pas repositionner à son état initial et il ne sera plus possible d'ouvrir le fichier autrement qu'en allant modifier le flag 'manuellement' (ou avec un autre code)


Bref, l'idéal serait qu'Excel lui-même ne propose pas l'ouverture en lecture seule ou en lecture seule avec notification
Je suis preneur de vos suggestions...

Merci par avance pour votre aide
 
Solution
Bonjour,

A mon avis tu ne pourras pas échapper au message Excel car il intervient avant même qu'un code quelconque ait pu être exécuté.

Ce que tu peux faire c'est utiliser la logique d'ouverture Excel et fermer le classeur s'il est ouvert en ReadOnly, ce qui signifie que l'utilisateur l'ouvrant dans ce mode est en concurrence avec l'utilisateur qui l'a ouvert en Edit.
VB: 
Private Sub Workbook_Open()
    If Me.ReadOnly Then
        MsgBox "Classeur en cours d'édition par un autre utilisateur !"
        Me.Close SaveChanges:=False
    End If
End Sub
Trier par date Trier par votes

Dudu2

XLDnaute Barbatruc
Bonjour,

A mon avis tu ne pourras pas échapper au message Excel car il intervient avant même qu'un code quelconque ait pu être exécuté.

Ce que tu peux faire c'est utiliser la logique d'ouverture Excel et fermer le classeur s'il est ouvert en ReadOnly, ce qui signifie que l'utilisateur l'ouvrant dans ce mode est en concurrence avec l'utilisateur qui l'a ouvert en Edit.
VB: 
Private Sub Workbook_Open()
    If Me.ReadOnly Then
        MsgBox "Classeur en cours d'édition par un autre utilisateur !"
        Me.Close SaveChanges:=False
    End If
End Sub
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question
Microsoft 365 comment ouvrir en lecture/écriture un fichier EXCEL placé sous sharepoint
Réponses
2
Affichages
889
fibled
F
T
  • Résolu(e)
Microsoft 365 Ouverture fichier en vb - sup boite dialogue
Réponses
4
Affichages
762
toto89
T
M
  • Question
Microsoft 365 Enlever la notification "Lecture Seule" lors de l'ouverture d'un fichier Excel
Réponses
5
Affichages
1 K
marie3107
M
A
  • Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
873
Staple1600
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
673
elgringo123456
E
L
  • Question
XL 2010 VBA fichier lecture seule, prévenir utilisateur par mail
Réponses
0
Affichages
1 K
leoronaldo
L
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
R
  • Question
XL 2019 Macros désactivées à chaque ré-ouverture du fichier Excel
Réponses
4
Affichages
2 K
rodymary
R
C
  • Résolu(e)
Microsoft 365 Excel VBA ouverture en lecture seul d'un fichier verrouillé sans intervention humaine
Réponses
6
Affichages
2 K
chez_salah
C
M
  • Question
XL 2016 VBA Forcer la valeur d'un slicer à l'ouverture
Réponses
0
Affichages
1 K
Mannemax
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…