[Spirosgr]

Γιάννη καλώς όρισες στο ms-office.gr

Φαντάζομαι, οτι έχω καταλάβει τι ζητάς και υπάρχει μια λύση στο πιο κάτω βιβλίο...

Χρησιμοποίησα κώδικα, βασισμένο σε ένα άλλο χρονόμετρο που έχω ανεβάσει και τύπους...
Θα πρέπει, να βάλεις το έργο σου σε .xlsm (Save As) για να μπορεί να εκτελέσει τον κώδικα.
Ακόμα, θα πρέπει από τις Options του προγράμματος, να ενεργοποιήσεις τις μακροεντολές,
Σφάλμα: «Δεν είναι δυνατή η εκτέλεση της μακροεντολής.....»

Δοκίμασέ το και τα λέμε.

Αλλαγή αρχείου:

Εκ παραδρομής, (στο αρχικό αρχείο), ξεχάστηκαν 2 σημαντικές γραμμές κώδικα,
οι οποίες απαγορεύουν στα κουμπιά, να «ξανατρέξουν»
πριν ολοκληρωθεί ένας πλήρης κύκλος Αρχή - Τέλος...

Στην Εντολή Sub StartTimer() Προστέθηκε η γραμμή:
If Sh1.Cells(4, 3).Value = "Calculating..." Then Exit Sub

Στην Εντολή Sub EndTimer() Προστέθηκε η γραμμή:
If Sh1.Cells(4, 3).Value <> "Calculating..." Then Exit Sub