Classeur verrouilé

Bonsoir,

J'utilise un classeur qui peut être utilisé par d'autres utilisateurs
dans mon administration.
Pour empêcher les autres utilisateurs de pouvoir faire une sauvegarde
j'ai inclu dans "This Woordbook" le code suivant :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim rep
rep = InputBox("Saisir le M de P", "Seulement le chef peut sauvegarder
!")
If rep <> "MonMotDePasse" Then
cancel = True
Else
Cancel = False
End If
End Sub

Ce code empêche effectivement les sauvegardes. Par contre, lorsqu'un
utilisateur (utilisateurA) ouvre le classeur, si moi je veux l'ouvrir à
mon tour, j'obtiens le message suivant :

"Fichier en cours d'utilisation
Nomduclasseur.xls est verrouillé pour modification
par
"UtilisateurA"
Ouvrez le document en utilisant l'option lecture seule ou cliquez sur
Notifier pour ouvrir une copie du document en lecture seule
et recevoir une notification lorsque le document sera
à nouveau disponible"

Voir copie écran : http://klaud.free.fr/copiedoc1.jpg

Je choisis donc de cliquer sur "lecture seule" et mon classeur s'ouvre
et j'obtiens un message d'erreur :

Microsoft Visual Basic
Erreur d'exécution '-2147221080 (800401a)' :
La méthode 'Name' de l'objet '_Workbook' a échoué

Voir copie écran du message d'erreur : http://klaud.free.fr/copiedoc2.jpg

Je précise que ce classeur n'est pas protégé.

Je ne comprends pas cette erreur !
Est-il possible de faire en sorte que plusieurs utilisateurs puissent
ouvrir ce classeur normalement ?

Merci pour votre aide.

Pierre