Menutup UserForm dalam 10 Menit

Ada-ada ajah, jika Anda bisa load form secara otomatis dengan menggunakan script VBA. kali ini Anda juga harus bisa close form atau menutup userform secara otomatis dengan VBA pula. Script VBA ini sangat sederhana dan Jika Anda belum tahu bagaimana load form secara otomatis Anda tinggal menambahkan script

Userform1.show

Untuk menutup form dengan batasan waktu tertentu misalnya 10 detik form akan ditutup secara otomatis tanpa peringatan terlebih dahulu.

Buatlah module dan tuliskan script berikut ini

Public dTime As Date
Sub KillUserForm()
    Unload UserForm1
End Sub

Setelah Anda membuat module kemudian buat juga atau insert salah satu UserForm kemudian pilih proseduer Initialize dan tuliskan script dibawah ini

Private Sub UserForm_Initialize()
    dTime = Time + TimeValue("00:00:10")
    Application.OnTime dTime, "KillUserForm"
End Sub

Dari script diatas artinya jika userform aktif dalam 10 detik maka secara otomatis userform tersebut akan ditutup tanpa peringatan terlebih dahulu.

Untuk kasus seperti ini biasanya Anda akan melihat contoh ketika menyelesaikan soal ujian secara online biasanya untuk mengerjakan soal tersebut sudah ditentukan waktunya maka jika Anda belum menyelesaikan soal tersebut namun batas waktu sudah habis maka Anda tidak akan bisa mengisi soal yang belum dikerjakan tersebut.

Demikian semoga bermanfaat.

Tweet