Fw: Exel bestand dat openstaat na een X aantal tijd automatisch afsluiten

  • Thread starter Thread starter Bergop
  • Start date Start date
B

Bergop

Zoek een makro dat wanneer een exelbestand openstaat op een online pc
na een X aantal tijd automatisch afsluit.

Waarom. Wanneer er iemand het bestand open heeft staan kan een andere
het bestand enkel openen en lezen maar niet bewerken.

Het gaat om een bestand dat kan geopend worden op verschillende pc in
een netwerk.

mvg Bergop
 
Kijk eens of je hier iets mee kan

Een werkmap sluiten na vijf minuten als deze niet gebruikt word
Het eerste deel moet in een module
Sub sluiten()
ThisWorkbook.Close
End Sub

Het tweede deel in ThisWorkbook:
Public tijd As Date
Private Sub Workbook_Open()
tijd = Now + TimeValue("00:05:00")
Application.OnTime tijd, "sluiten"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime tijd, "sluiten", , False
tijd = Now + TimeValue("00:05:00")
Application.OnTime tijd, "sluiten"
End Sub


"Bergop" schreef:
 
Na rijp beraad schreef Martin :
Kijk eens of je hier iets mee kan

Een werkmap sluiten na vijf minuten als deze niet gebruikt word
Het eerste deel moet in een module
Sub sluiten()
ThisWorkbook.Close
End Sub

Het tweede deel in ThisWorkbook:
Public tijd As Date
Private Sub Workbook_Open()
tijd = Now + TimeValue("00:05:00")
Application.OnTime tijd, "sluiten"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime tijd, "sluiten", , False
tijd = Now + TimeValue("00:05:00")
Application.OnTime tijd, "sluiten"
End Sub


"Bergop" schreef:
Click to expand...

thx van de hulp
ga het deze week nog uit testen
mvg bergop
 
Met hetzelfde probleem heb ook ik dankbaar gebruik gemaakt van deze
macro's
Werkt goed, maar heb toch iets vreemds
Bij het automatisch afsluiten "ontime" gaat alles goed
Wanneer eerder handmatig wordt afgesloten wordt, als de tijd (5
minuten) is aangebroken het bestand opnieuw (vanzelf) geopend. Hoe kan
ik dit opnieuw openen voorkomen ?

Nb de macro hen ik uitgebreid met "This workbook.save" voor het
afsluiten. Dit omdat savechanges=true niet werkt als een ander bestand
of venster geopend is.
 
Frits

Ik heb geen iedee hoe dit opgelost moet worden.
Ik hoop dat een ander in deze groep het andwoord heeft.

Martin

"Frits" schreef:
 
Back
Top