Blocage annuler saisie

Bonjour,
dans mon fichier Excel, j'ai une macro qui aprés 15min, ferme le fichier, car utilidé par plusieurs personnes et il y à des artistes qui tiennent le fichier même pour 1 min la journée entiére.
Soit, le problème n'est pas là, mais quand la macro tourne, je n'ai plus la possibilité d'utiliser le retour en arriére si erreur de frappe dans un champs, ainssi que les messages sur les cellules protégées en lecture seule.
Pourriez-vous m'aider
Un grand merci


Voici la macro que j'utilise comme compteur


Sub adap_plan()


Dim PauseTime, Start, Finish, TotalTime

If (MsgBox("Fermeture Atomatique du classeur aprés 15 minutes")) Then
PauseTime = 900 ' Temps avant fermeture.
Start = Timer ' Début du decompte.
Do While Timer < Start + PauseTime
DoEvents ' permettre a d'autre processus de s'executer
Loop

Else
End
End If
ActiveWorkbook.Close True ' Fermeture et sauvegarde du fichier


End Sub