Empêcher ouverture fichier même en lecture seule

[Benlo]

Bonjour,

Est-il possible d'empêcher l'ouverture d'un fichier, même en lecture seule, lorsque ce même fichier est déjà utilisé par un autre utilisateur...

Merci pour vos idées....

 

[Benlo]

Bonjour le forum,

Voici ce que j'ai trouvé, si ça intéresse quelqu'un :

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
MsgBox 'Message... !', vbOKOnly + vbInformation
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

En cliquant OK dans le msgbox, le classeur se ferme automatiquement ! Il suffit aussi de gérer la fermeture du msgbox par le 'X' de fermeture et voilà...