Compte à rebours

[astralon]

Bonjour,

J'appele cela un comptes a rebours, mais ...

j'utilise un textbox pour identifier l'utilisateur, est-il possible de mettre un code qui si l'utilisateur n'encode pas sont nom dans les "10" secondes, ca quitte mon PRG

Pour votre info, j'ai ceci a l'ouverture

Private Sub Workbook_Open()
Do
nom = InputBox("Code personnel")
Loop While nom = ""
ActiveSheet.Name = nom
End Sub

merci pour votre aide

 

[excalibur]

Re : Compte à rebours

bonjour astralon le forum tu peus faire un truc dans ce genre assez basique oublie pas de protege ton projet dans vba .... bien sur si il deactive les macros ca marche plus si la personne n est pas trop un bidouilleur dans excel ca devrait aller le code de ex = toto

 

[excalibur]

Re : Compte à rebours

rebonjour le meme exemple en protegeant vba par code toto & masquer feuil test si deactivation macros a adapter

 

[astralon]

Re : Compte à rebours

Bonjour Excalibur

Merci beaucoup, ton exemple ma ouvert de nouveau horizon