Beste,
Betreft vba Excel
Ik zou graag een script willen maken waarin:
- Een msgbox of userform tevoorschijn komt
- Een timer zichtbaar is die aftelt in seconden
- Als de timer op "0" komt de workbook opslaat & sluit
- met eventueel een "ok" of "annuleer" knop
Kan iemand mij helpen?
Het lukt me niet
Als ik onderstaande code gebruik, blijft het userform open & sluit niet.
Bestand in bijlage
Alvast bedankt.
Wocky
Betreft vba Excel
Ik zou graag een script willen maken waarin:
- Een msgbox of userform tevoorschijn komt
- Een timer zichtbaar is die aftelt in seconden
- Als de timer op "0" komt de workbook opslaat & sluit
- met eventueel een "ok" of "annuleer" knop
Kan iemand mij helpen?
Het lukt me niet
Als ik onderstaande code gebruik, blijft het userform open & sluit niet.
Bestand in bijlage
Alvast bedankt.
Wocky
Code:
Private Sub OpslaanSluiten_1()
'Variabelen
Dim Bericht As String
Dim Tijd As Date
Dim ResterendeTijd As Date
Dim WachtTijd As Date
Dim EindTijd As Date
'Variabelen Invullen
Tijd = Now
WachtTijd = DateAdd("s", 5, Tijd) - Tijd
EindTijd = Tijd + WachtTijd
Bericht = ThisWorkbook.Name & " Automatisch Opslaan & Sluiten na "
'Code
Do Until EindTijd = Now
UserForm1.Label1.Caption = Second(EindTijd - Now)
UserForm1.Label2.Caption = Bericht
UserForm1.Show
Unload UserForm1
Loop
ThisWorkbook.Close True
End Sub