Sauvegarde automatique que si fichier pas en lecture seule

Bonjour à tous !

J'ai un fichier qui doit logiquement être ouvert en permanence sur un poste de travail. Pour être sûr qu'il est régulièrement sauvegardé, j'ai fait une macro qui automatise l'enregistrement toutes les 5 minutes. Je cherche à faire en sorte que si quelqu'un l'ouvre en lecture seule, le code macro qui enregistre en automatique ne fonctionne pas.

Private Sub Workbook_Open()

Sheets("RECENSEMENT").Select
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:05:00"), "enregistrement"
Application.OnTime Now + TimeValue("01:00:00"), "actualisation"

End Sub

Sub enregistrement()

Application.DisplayAlerts = False
DoEvents
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:05:00"), "enregistrement"

End Sub

C'est donc la macro "enregistrement" qui se lance toutes les 5 minutes que je veux lancer uniquement si mon fichier n'est pas ouvert en lecture seule.

Pourriez-vous m'aider ?

Cordialement,

Charles CARON

Bonjour MArin95

Rien de plus simple, mais il faut connaitre

Sub enregistrement()
' Si le classeur est en lecture seul on sort
If Thisworkbook.ReadOnly then Exit Sub
' Sinon
Application.DisplayAlerts = False
DoEvents
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:05:00"), "enregistrement"

End Sub

@+

Merci !