Action avec limite de temps

[POWO]

Bonjour à tous,

Voilà mon cas,

Dans une macro je déprotège une feuille excel:

Worksheets("Modification").Unprotect Password:="xxxxx"

Maintenant est-il possible de définir une limite de temps à cette action de telle sorte que 2min après la protection se remette automatiquement??

Merci d'avance pour aide

Cordialement

Powo

 

[Pierrot93]

Re : Action avec limite de temps

Bonjour,

Maintenant est-il possible de définir une limite de temps à cette action de telle sorte que 2min après la protection se remette automatiquement??

oui, regarde du coté de "Application.OnTime".

bonne journée
@+

Edition : bonjour Laetitia🙂

 

[laetitia90]

Re : Action avec limite de temps

bonjour POWO , l'ami Pierrot🙂

avec doevents

Sub es()
Dim pausetime, start
Worksheets("Modification").Unprotect Password:="xxxxx"
pausetime = 120 'a adapter
start = Timer: Do While Timer < start + pausetime: DoEvents: Loop
Worksheets("Modification").Protect Password:="xxxxx"
End Sub

 

[POWO]

Re : Action avec limite de temps

Bonjour Pierrot et Laetitia,

Effectivement l'application on time semble correspondre à mon problème, en revanche je n'arrive pas l'adapter à mon besoin, l'car ce don't j'ai besoin c'est juste de déclencher le compte à rebour à un instant X, ensuite ma macro doit se terminer, tout en laissant le chrono continuer... celà me semble un peu contradictoire....😕

Je reviens vers vous si je bloque vraiment.

Merci encore.

 

[Pierrot93]

Re : Action avec limite de temps

Re,

un article de notre ami Didier🙂 sur la méthode "ontime", espérant que cela puisse t'aider à avancer :
Tutoriels : myDearFriend! Excel Pages