Timer + protection

[malinsard]

Bonjour à tous petite question j'ai créer un bouton afin de déprotéger ma feuille.
Ma question est-il possible de remettre la protection avec un code incluant un Timer?
Merci a tous
Au fait CHAMPION DU MONDE !!!!!!!!!!!

 

[Lone-wolf]

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.

Option Explicit
Public counter As Range

Sub Start_Timer()
Set counter = Sheets("Feuil1").Range("b2")
Application.OnTime Now + TimeValue("00:00:01"), "CaR"
End Sub

Sub CaR()
Start_Timer
counter = counter - TimeValue("00:00:01")
If counter = 0 Then Application.OnTime Now + TimeValue("00:00:01"), "CaR", , False: _
counter = TimeSerial(0, 0, 10)     'change ici le temps identique à B2
End Sub

 

[malinsard]

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.

 

[Lone-wolf]

Bonjour malinsard

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

 

[malinsard]

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