Automatisch afsluiten document

[Spina]

hallo beste lezer
Binnen een netwerk wordt gebruik gemaakt van een formulier waarop gegevens moeten worden ingevuld door via verschillende werkplekken.
Sommige medewerkers vergeten wel eens om het formulier te sluiten en dan is het niet mogelijk voor andere gebruikers het betreffende formulier te benaderen.
Het idee is om het formulier automatisch te laten sluiten indien het een bepaalde periode geopend is.
is dit mogelijk bv via VBA, of zijn er andere mogelijkheden misschien om dit probleem opt te lossen?

groet Spina

 

[joost verdaasdo]

Hoi Jan,

Natuurlijk is dit mogelijk!

Gebruik je een sjabloon of document?
Kies de juiste code:

Option Explicit
'Code plaatsen in ThisDocument!

'Voor in een Sjabloon:
Private Sub Document_New()
Application.OnTime Now + TimeValue("00:30:00"), "SluitMij"
End Sub

'Voor in een document
Private Sub Document_Open()
    Application.OnTime Now + TimeValue("00:30:00"), "SluitMij"
End Sub

Option Explicit
'Code plaatsen in een nieuwe module (invoegen/Module)

Sub SluitMij()
ThisDocument.Close False 'Sluiten zonder opslaan
'ThisDocument.Close True 'Sluiten met opslaan
End Sub

Dit zorgt ervoor dat na 30 minuten (zelf veranderen) het document sluit.
Bij een sjabloon krijg je door de Document_New geen macromelding bij gebruik document met de _Open dan wel. (of te wel sjabloon is handiger)

De losse module kun je kiezen of de code met False (niet opslaan) of True (wel opslaan)

See Yah! :thumb:

 

[Spina]

Hallo Joost
Krijg het nog niet aan het werken. Op wat voor wijze moet ik deze code invoegen.
Heb het nu gedaan via Alt F11 en dan links huidige doument aan klikken en nieuwe module
en dan in blanke veld rechts de code invullen
Dat is mijn werkwijze geweest, maar het werkt dan nog neit.

Groet, Spina

 

[joost verdaasdo]

Geplaatst door Spina
Hallo Joost
Krijg het nog niet aan het werken. Op wat voor wijze moet ik deze code invoegen.
Heb het nu gedaan via Alt F11 en dan links huidige doument aan klikken en nieuwe module
en dan in blanke veld rechts de code invullen
Dat is mijn werkwijze geweest, maar het werkt dan nog neit.

Groet, Spina

Hai Jan,

Er staat dat je een gedeelte in thisDocument moet plaatsen. (hierop moet je dus dubbelklikken)

En het andere gedeelte in een nieuwe module. (dat was reeds gelukt)

Om je te helpen even een voorbeelddocje om te spieken!

Dit docje gaat na openen tellen en na 20 sec valt ie uit!

Succes! :thumb:

 

[Spina]

Hallo Joost
Dank je alweer, zie dat het werkt. Het document sluit echter ook als je er nmog in het werken bent. Is het mogelijk het zo in te richten dat het document alleen gesloten wordt als er een bepaalde tijd niet meer ingewerkt wordt?

Groet, Jan