Omdat ik een bestand gebruik wat door meerdere personen, via een netwerk, gebruikt kan worden, heb ik iets toegevoegd waardoor het bestand na 15 minuten van inactiviteit vanzelf afsluit.
Probleem is echter dat ik alleen het werkbook sluit, en niet geheel Excel.
Daardoor lijkt de "Application.OnTime" actief te blijven.
Dat is vervelend omdat het bestand na een tijdje vanzelf weer wil openen.
Vandaar mijn vraag, hoe kan ik het werkbook echt afsluiten, zonder excel af te sluiten.
Het valt mij ook op dat, ook al heb ik het werkbook gesloten, dat het bestand in VBA actief blijft.
Dus het werkbook wardt gesloten. Open ik dan VBA, dan zie ik daar het werkbook nog staan
Ik sluit het bestand af met:
(Overigens ook ergens van internet geplukt)
Met vriendelijk groet
Jos
Probleem is echter dat ik alleen het werkbook sluit, en niet geheel Excel.
Daardoor lijkt de "Application.OnTime" actief te blijven.
Dat is vervelend omdat het bestand na een tijdje vanzelf weer wil openen.
Vandaar mijn vraag, hoe kan ik het werkbook echt afsluiten, zonder excel af te sluiten.
Het valt mij ook op dat, ook al heb ik het werkbook gesloten, dat het bestand in VBA actief blijft.
Dus het werkbook wardt gesloten. Open ik dan VBA, dan zie ik daar het werkbook nog staan
Ik sluit het bestand af met:
(Overigens ook ergens van internet geplukt)
Met vriendelijk groet
Jos
Code:
Dim DownTime As Date
Sub SetTimer()
DownTime = Now + TimeValue("00:15:00")
Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=True
'Sheets("Dashboard").Range("T27").Value = Format(DownTime, "hh:nn:ss")
Application.StatusBar = Application.UserName & "-" & ", PRIOPROG ZAL, ZONDER SAVEN, WORDEN AFGESLOTEN OM: " & " " & DownTime
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=False
End Sub
Sub ShutDown()
Application.DisplayAlerts = False
Workbooks("PrioProg 2.xlsm").Saved = True
'vbs = Environ("temp") & "\BestandGesloten.vbs"
'Open vbs For Output As #1
'Print #1, "MsgBox " & Chr(34) & "PrioProg is automatisch afgesloten. Bestand is niet gesaved" & Chr(34)
'Close #1
'Shell ("wscript " & vbs)
If Not CloseMode Then
CloseMode = True
Workbooks("PrioProg 2.xlsm").Saved = True
Application.DisplayAlerts = False
Application.StatusBar = False
Workbooks("PrioProg 2.xlsm").Close
Application.DisplayAlerts = True
'Test omdat het bestand steeds opnieuw opstart
'Application.OnTime , Schedule:=False
End If
End Sub