ouverture fichier excel avant et pendant

bonjour à toutes et à tous,
suite aux conseils avisés des spécialistes du forum, j'ai voulu modifier mes deux procédures de la manière suivante :

1 - lorsque l'on ouvre le fichier toto.xls, si un fichier *.xls est déjà ouvert (sauf exception pour le fichier exemple.xls), un message dit "on ne peut ouvrir ce fichier toto.xls car un autre est déjà ouvert" (sauf pour exemple.xls) et referme toto.xls.

2 - lorque toto.xls est ouvert, si l'on essaye d'ouvrir un autre fichier *.xls (sauf exception pour le fichier titi.xls), un message dit "vous ne pouvez ouvrir un autre fichier xls " (sauf pour titi.xls).


Private Sub Workbook_Open()

If Workbooks.Count > 1 Then
MsgBox "bonjour ! " & Chr(13) & " " & Chr(13) & " ; " & Chr(13) & " on ne peut ouvrir ce fichier toto.xls " & Chr(13) & " merci de votre compréhension. ", vbExclamation, T
ThisWorkbook.Close
Exit Sub
End If
End Sub

nota :il manque l'exception exemple.xls

et

Private Sub Workbook_Deactivate()

For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
MsgBox "bonjour ! " & Chr(13) & " " & Chr(13) & " "vous ne pouvez ouvrir un autre fichier xls "; " & Chr(13) & " " & Chr(13) & " merci de votre compréhension. ", vbExclamation, T
Workbooks(i).Close
End If
Next

End Sub

nota :il manque l'exception titi.xls

si je place les place séparement ca fonctionne pour un cas mais si je les mets ensemble ca ne fonctionne pas correctement.

j'espère avoir été explicite car je suis proche du néophyte.
alors, si quelqu'un peut me corriger, parfaire mes deux procédures, et m'expliquer le pourquoi du comment ce serait sympa merci🙁