Tester si workbooks.open a bien ouvert en ecritur

[okparanoid]

Bonjour a tous !!

Je voudrais ouvrir un fichier (dans une macro) susceptible d'etre deja ouvert par un autre utilisateur sur le reseau.

Si le fichier n'est pas ouvert en ecriture je veux arreter ma macro sans que l'utilisateur est un message d'excel lui proposant de l'ouvrir en lecture seule.

Merci 😛

 

[fredl]

Re : Tester si workbooks.open a bien ouvert en ecritur

essaie ça : (ton fichier étant ouvert)
Sub fermerSiDejaUtilise()
Dim Users()
On Error GoTo 10 'il y aura erreur si le fichier est en lecture seule
Users = ActiveWorkbook.UserStatus
Exit Sub
10
MsgBox "fichier déjà utilisé par une autre personne- veuillez reessayer plus tard - merci"
Windows("tonfichier.xls").Close savechanges:=False
Application.Quit
End Sub