√ Menutup Userform Dalam 10 Menit

Ada-ada ajah, kalau Anda dapat load form secara otomatis dengan memakai script VBA. kali ini Anda juga harus dapat 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 contohnya 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 menciptakan module lalu buat juga atau insert salah satu UserForm lalu 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 kalau userform aktif dalam 10 detik maka secara otomatis userform tersebut akan ditutup tanpa peringatan terlebih dahulu.

Untuk kasus menyerupai ini biasanya Anda akan melihat teladan dikala menuntaskan soal ujian secara online biasanya untuk mengerjakan soal tersebut sudah ditentukan waktunya maka kalau Anda belum menuntaskan soal tersebut namun batas waktu sudah habis maka Anda tidak akan dapat mengisi soal yang belum dikerjakan tersebut.

Demikian supaya bermanfaat.


Sumber http://www.excel-id.com/