Microsoft 365 TIMER (comptage ou décomptage) à l'ouverture du classeur

Sub Workbook_Open()
    TempsRestant = 30   ' Init du temps en secondes. Ici 30s pour test. Mettre 300 pour 5min.
    Compteur
End Sub
'Pour stoper à la fermeture du classeur
Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now, "Compteur", schedule:=False     ' stoppe le compteur
    EcrireStatus (0)
    ActiveWorkbook.Close Savechanges:=False                 ' ferme sans enregistrer, sinon mettre True pour enregistrer
End Sub

Public TempsRestant%
Sub Compteur()
    TempsRestant = TempsRestant - 1
    If TempsRestant = 0 Then
        EcrireStatus (0)
        ActiveWorkbook.Close Savechanges:=False ' ferme le fichier sans l'enregistrer, sinon mettre True pour l'enregistrement
        ' Application.Quit                      ' si pas en commentaires alors on sort d' XL
    End If
    EcrireStatus (1)
    clock
End Sub
Sub clock()
    Application.OnTime Now + TimeValue("00:00:01"), "Compteur"
End Sub
Sub EcrireStatus(N)
    If N = 1 Then
        Application.StatusBar = "Ce fichier va se fermer dans " & TempsRestant & " secondes. (  " & Format(TempsRestant / 86400, "hh:mm:ss") & "  )"
    Else
        Application.StatusBar = "  "                              ' vide le statusbar
    End If
End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), Me.CodeName & ".Fermer"
End Sub

Private Sub Fermer()
Me.Save 'enregistre les modifications
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), Me.CodeName & ".Fermer"
End Sub

Private Sub Fermer()
If Me.ReadOnly Then Me.Saved = True Else Me.Save 'en lecture seule pas d'enregistrement
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Dim timerstart
Const durée_max As String = "00:05:00" 'Adapter la durée souhaitée
Private Sub Workbook_Open()
    timerstart = TimeValue(Now)
    lookinstatusbar
End Sub

Sub lookinstatusbar()
    Dim heure1, x, y
    heure1 = TimeValue(Now)
    x = Application.Text(heure1 - timerstart, "[hh]:mm:ss")
    minute_max = TimeValue(durée_max)
    y = TimeValue(Application.Text(minute_max - TimeValue(x), "[hh]:mm:ss"))
    If TimeValue(y) < TimeValue("00:01:01") Then mess = "  Attention fermeture dans moins d'une minute !!!": Beep Else mess = "  il reste plus que :  "
    If y = 0 Then fermeture: Exit Sub
    DoEvents
    Application.StatusBar = "------heure d'ouverture fichier : " & timerstart & "    temps passé:  " & x & mess & y
    Application.OnTime Now + 0.00005, "ThisWorkbook.lookinstatusbar"
End Sub

Sub fermeture()
    MsgBox "c'est ici que tu met ton code de fermeture"
End Sub

Dim t 'mémorise la variable

Private Sub Workbook_Open()
t = Now + TimeValue("00:05:00")
Fermer
End Sub

Private Sub Fermer()
Application.StatusBar = "Temps restant " & Format(t - Now, "hh:mm:ss")
If t > Now Then Application.OnTime Now + 1 / 86400, Me.CodeName & ".Fermer": Exit Sub 'relance chaque secondee
Application.StatusBar = ""
If Me.ReadOnly Then Me.Saved = True Else Me.Save 'en lecture seule pas d'enregistrement
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub