Ano, lze to udělat.
P.
Např. takto:
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:02"), "Uzavri_Formular1"
End SubSub Uzavri_Formular1()
UserForm1.Hide
Unload UserForm1
End Subcitovat
P.
Např. takto:
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:02"), "Uzavri_Formular1"
End SubSub Uzavri_Formular1()
UserForm1.Hide
Unload UserForm1
End Subcitovat