Microsoft 365 Comment empêcher l'ouverture en lecture seul?

C

Compte Supprimé 979

Guest

• 2 Avril 2021

• #2

Bonsoir Claudy,

Voici le code à mettre dans ThisWorkbook

VB:

Private Sub Workbook_Open()
  If ThisWorkbook.ReadOnly Then
    MsgBox "Ce classeur est déjà ouvert par un autre utilisateur," _
    & "il va donc être fermé, merci de patienter !", vbExclamation, "LECTURE SEULE"
    ThisWorkbook.Saved = True
    ThisWorkbook.Close SaveChanges:=False
  End If
End Sub

@+

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 2 Avril 2021

• #3

Bonsoir Bruno, et grand merci
Mais comment avoir le nom de l'autre utilisateur?
Histoire de téléphoner ou mail à cette personne dans le genre: "Dégage de ce fichier je dois y encoder des trucs"...
Merci,
Claudy

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Avril 2021

• #4

Re,
Excel te le dit à l'ouverture normalement.

En VBA à ma connaissance c'est impossible

 

Vote positif 0 Vote négatif