Double ouverture

[karinette]

Bonjour à tous,

J'ai eu beau chercher, je ne trouve pas mon bonheur, alors je vous expose mon soucis.

J'ai un fichier ".xlsm" sur un serveur commun d'entreprise.

J'aimerais que si un poste a ouvert le fichier, qu'un message du type "ouverture impossible, utilisation en cours" puisse apparaitre, sans avoir l'option de "lecture seule" ....

Possible ou pas ??? 😕

Merci d'avance aux experts du forum ...

 

[karinette]

Re : Double ouverture

J'ai trouvé une parade pour ceux que ça peut intéresser ...
J'ouvre cette macro au démarrage :
Sub redaon()
If ActiveWorkbook.ReadOnly = True Then
MsgBox "Ce fichier ne peut s'ouvrir qu'à un seul poste, fermeture automatique !"
ActiveWorkbook.Close
End If
End Sub
Fermeture radicale en cas de double ouverture ... 😛