VBA, lecture seul

Bonjour à tous,

J'essaye de sécuriser au maximum un fichier lorsque il est ouvert en lecture seul.
Je m'explique, lorsque on ouvre le fichier il demande un mot de passe ou de l'ouvrir en lecture seul, si je l'ouvre en lecture seul, j'aimerais bloquer, la saisie, l'enregistrement, etc.

J'en suis à la:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Me.ReadOnly = True Then
Application.Undo
MsgBox "Ce fichier est en lecture seule, la saisie n'est pas autorisée"
ThisWorkbook.Saved = True
End If
Application.EnableEvents = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ReadOnly = True Then
SaveAsUI = False
Cancel = True
End If
End Sub


Le problème est que parfois, la boite de dialogue qui demande si je souhaite enregistrer le document au moment ou je le ferme s'affiche et permet donc l'enregistrement sous.

Le but de tous ça est d'empêcher mes collègues (très très très novice en excel) qui vont l'utiliser de créer plusieurs copie du même document.

Merci d'avance pour votre aide!!