Timer + protection

Bonsoir malinsard

C'est possible oui, mais... quel est l'interêt de mettre un timer, si tu ne sais pas quand tu vas finir?? 😵

un exemple de compte à rebours de 10sec, clique sur Start_Timer. En B2 > 00:00:10, puis format presonnalisé > ss.

Attention! Avec cette macro, le compte à rebours s'arrête si tu travail sur la feuille.

Merci pour ta réponse en fait le temps maximum serait de 2 minute .
En fait dès que je clique sur le bouton pour déprotéger les cellules je voudrais que le compte à rebours s'enclenche.

Bonjour malinsard

Ok, mais ton fichier tu vas le mettre quand?? 🙄 Et c'est pas plutôt pour protéger les cellules?? 🙄

Merci pour tes réponses mais c'est bon je viens de trouver un code qui me convient, désolé si je n'ai pas envoyer de fichier mais c'est un fichier entreprise que je ne peux pax modifier pour l'envoyer.
Voici mon code:
Option Explicit
Dim NewTime

Sub Enleve_Protect()
If MsgBox("Attention si vous enlever la protection," & Chr(13) _
& "MERCI DE NE PAS TOUCHER AU FORMULES," & Chr(13) _
& "pour déprotéger cliquer sur OUI sinon NON" & Chr(13) _
& "Vous avez 1 minute pour faire vos modifications après quoi la protection sera remise automatiquement!", vbCritical + vbYesNo, "Avertissement") = vbYes Then

ActiveSheet.Unprotect "#######"
End If
TimerStart
End Sub
Sub ShtProtect()
shtInter.Protect "######"

End Sub
Sub TimerStart()
NewTime = Now + TimeValue("00:01:00")
Application.OnTime NewTime, Procedure:="ShtProtect"

End Sub

Encore une fois merci de ton aide!
Bonne journée