Bestand gezocht

[masala09]

Even een vraag. Ik heb dit forum al een beetje doorgespit en heb wel iets gevonden, maar niet wat mijn einddoel bevredigd.

Wat ik graag wil hebben is een code die ik kan invoegen in eigen VBA bestand. Deze code moet een geopend excel bestand na zeg maar 10 minuten inactiviteit vergrendelen. De code voor het vergrendelen en het bijbehorende formulier had ik al. Middels deze code kan ik al handmatig vergrendelen. Zodra ik ontgrendel (middels wachtwoord) dan moet de timer gereset worden en het bestand weer toegankelijk worden. Echter deze code moet ik telkens via een hoofdmenu benaderen.

Eigenlijk hetzelfde als wat Windows doet zodra er even inactiviteit is. Dan komt er ook een pop-up naar voren waar je een code in kan voeren.

In het kort komt het hier op neer. Ik heb een timer nodig die bij X inactiviteit de bestaande code voor vergrendeling automatisch triggert en op ALLE werkbladen actief is. Maar let op de code mag enkel werken op het werkboek waar de code voor geld. Niet voor andere werkboeken die geopend zouden kunnen zijn.

 

[masala09]

O ja wat denk ik wel handig is.

De code voor vergrendeling is bij mij eigenlijk heel simpel. Het vergrendeling mechanisme is een simpel userform die opent waar ik een code moet invoeren om het userform te ontladen. Het kruisje van dit userform is uitgeschakeld.

De code die naar dit bestand verwijst is nu:

Sub Vergrendeling()

Sheets("Wachtwoord").select
frm_002.show

End Sub

 

[edmoor]

Dat kan met Application.OnTime:
http://msdn.microsoft.com/en-us/library/office/ff196165.aspx