foutmelding 1004 bij afsluiten

[polleunited]

In bijgevoegd bestand wordt de tijd prima en op tijd ververst en bijgehouden. Probleem is nu wel dat als er meerdere excel bestanden openstaan ik een foutmelding krijg: fout 1004 tijdens uitvoering methode ontime van object application is mislukt. Doel is dat de tijd in dit bestand steeds wordt ververst en wordt bijgehouden, maar hoe krijg ik de foutmelding 1004 weg? Kan en wil iemand de code aanpassen of is er een andere actie nodig? alvast bedankt.

 

[edmoor]

De fout zal komen omdat er op dat moment een ander werkboek actief is dan de UpdateClock routine verwacht. Wijzig hem dus eens in dit:

Public Sub UpdateClock()
    Dim WBname As String
    Dim NextTick As Date
    
    WBname = "volgsysteem 2012werkbestand(4).xlsm"
    NextTick = Now + TimeValue("00:00:01")
    Workbooks(WBname).Sheets("barcodes").Range("S2").Value = NextTick
    Application.OnTime NextTick, "UpdateClock"
End Sub

 

[polleunited]

Edmoor: het lijkt te werken !!!! Morgen gaan we dit met meerdere gebruikers testen. Ik laat weten hoe het is afgelopen. Eerst bedankt voor de snelle tip en hulp. Ik neem aan dat het vergrendelen van cellen en beveiligen hier niet van invloed op is? tnx.

 

[edmoor]

Deze wijziging is daarop inderdaad niet van invloed. Het zorgt er alleen voor dat de UpdateClock routine weet op welk werkboek hij moet werken.

 

[polleunited]

Het vreemde is dat als het bestand afsluit en later weer opstart, hij niet de actuele tijd geeft, maar de tijd van afsluiten. Ik zal morgen nog even testen maar staat er nog een fout in de code? En als ik de bestandsnaam aanpas, moet ik dan in de code ook iets aanpassen? Bedankt voor de hulp.

 

[edmoor]

In die code hoef je alleen maar de naam van het juiste document in te vullen. Het probleem dat je noemt zou kunnen omdat er niet een refresh wordt gedaan van de cel. Zet de cursor maar eens in cel S2 van de sheet Barcode. Dan zal je zien dat de tijd wel loopt in de formulebalk maar niet in de cel zelf.

 

[polleunited]

De tijd wordt nu niet meer bijgewerkt, als ik de code wil vernieuwen geeft hij de melding: onvoldoende geheugen. Bijzonder bestand of is de vraag bijzonder....

 

[edmoor]

Uiteraard. Het werkblad is beveiligd. Dat betekend dat er niet in gewijzigd mag worden. Dus ook niet vanuit VBA.
Het beveiligen van cellen is iets anders dan het hele werkboek met een wachtwoord op slot zetten.

Wat is trouwens de bedoeling van het laten meelopen van de tijd?

 

[polleunited]

Doel is om inzicht te krijgen in doorlooptijden van wedrkprocessen. Vreemde is dat het bestand de ene keer wel een foutmelding geeft en de andere keer niet als ik meerdere bestanden gelijkertijd open heb. Ik zal de foutmelding wel even posten als hij zich weer voordoet.

 

[edmoor]

De foutmelding begrijp ik wel, maar ik denk dat die timer routine helemaal overbodig is omdat je de tijd tussen het openen en het sluiten zelf eenvoudig kunt berekenen door in de Workbook_Open cel S2 te vullen met de datum/tijd van dat moment en de berekening te doen in de Workbook_Close sectie.

 

[polleunited]

Oké, nu ben ik afgehaakt. Ik had oorspronkelijk (NU) als code maar het bleek dat de tijd dan niet altijd werd ververst. Vervolgens heb ik deze code toegevoegd. Is het lastig om mij dit als leek uit te leggen: kortom: waar moet ik welke code invullen. Sorry van het onbegrip, ik heb er veel overl gelezen maar raak nu het spoor bijster..... Dat geheel aan mij ligt.

 

[edmoor]

Ok, even voor het juiste begrip. Je wilt de tijd weten dat het document open is geweest toch? Dus het verschil in tijd tussen het openen en het sluiten van het document. Correct?

 

[polleunited]

Nee, ik wil weten hoelang iemand met een proces bezig is geweest. startijd is dat men ermee is begonnen, en eindtijd dat men klaar is met het werk.

 

[edmoor]

Ok, dat had ik dus niet begrepen. Dan werkt het in je eerste document gewoon goed en moet je alleen de wijziging doorvoeren die ik liet zien. In de foutmelding die je liet zien is die wijziging nog niet aangebracht.

 

[polleunited]

Ik heb de code verwijderd en die van jou in thisworkbook erin gezet. Als ik nu met het kruisje afsluit start het bestand steeds weer opnieuw op.

 

[edmoor]

Plaats het document hier eens.

 

[polleunited]

zie bijlage, we testen met 3 gebruikers gelijkertijd maar we worden er niet vrolijker op terwijl het wel een balangrijk bestand moet worden.

 

[edmoor]

Het werkblad is nog steeds beveiligd en de code staat in de verkeerde sectie. Om het goed te kunnen testen heb ik het wachtwoord nodig of het document zonder dat deze beveiligd is.

 

[polleunited]

sorry, dom van me. hier zonder wachtwoord.

 

[OctaFish]

Hier een werkende versie.
Hij pakte geen xl met macro