automatisch sluiten excel workbook na bepaalde tijd

in vba
kies thisworkbook
maak een userform aan om te testen
selecteer workbook en dan open

Private Sub Workbook_Open()

RunTime
UserForm1.Show

End Sub

maak een module aan en maak onderstaande subs aan

Sub RunTime()
EndTime = Now + TimeValue(“00:20:00”)
Application.OnTime EndTime, “CloseWB”, , True
End Sub

Sub CloseWB()
‘MsgBox (“wordt automatisch gesloten”)
With ThisWorkbook
.Saved = True
.Close
End With

End Sub

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *