Empêcher l'ouverture classeur Excel une deuxième fois

sormick -  
 sormick -
Bonjour,

Nous sommes plusieurs à travailler sur un classeur excel
sauf que ce même tableau est parfois ouvert une deuxième fois alors qu'il est déjà ouvert!
Un message de ce type s'affiche à l'écran:
...xls est déjà ouvert, si vous l'ouvrez à nouveau toutes les modifications seront perdues.

Comment Empêcher l'ouverture de ce tableau si déjà ouvert?



A voir également:

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ceci:

https://excel-malin.com/codes-sources-vba/vba-verifier-si-un-classeur-est-ouvert/
0
Réponse 2 / 3
sormick
 
Bonjour,

Personne pour m'aider?

malheureusement j'ai essayé le lien ci-dessus.
Pour mon cas ça ne fonctionne pas.
je souhaiterais si le tableau est déjà ouvert empêcher la réouverture de ce même tableau
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Personne pour m'aider?

Si justement, mais il y a un minimum de politesse a avoir pour ceux qui te répondent!
Les remercier et leur dire simplement que cette réponse ne convient pas.
0
sormick
 
Pardon désolé loin de moi l'idée d'offusquer qui que ce soit.
j'ai essayé la macro décrite sur le lien ci-dessus et je n'arrive pas à empêcher sa réouverture.
Pouvez bous m'aider?
Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > sormick
 
Une autre approche,

A l'ouverture du classeur, le mettre en fichier caché pour les autres utilisateurs.
A la fermeture on rétabli.

Mettre ceci dans ThisWorkbook: 

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'retabli fichier
 SetAttr ThisWorkbook.Path & "\essai.xls", vbNormal 'adapter chemin fichier
End Sub
Private Sub Workbook_Open()
'fichier caché
 SetAttr ThisWorkbook.Path & "\essai.xls", vbHidden 'adapter chemin fichier
End Sub
0
Réponse 3 / 3
sormick
 
Je viens de tester.ça fonctionne Impeccable avec VBhidden!

Merci beaucoup à la communauté CCM!
0