Mungkin seperti file terlampir yang diatur set variabel bAktif nya sesuai tabiat setiap controlnya.
Wassalam,
Kid.
2013/7/23 De Premor <d...@premor.net>
> **
>
>
> Dengan routine seperti itu, walaupun user sedang kerja (menggunakan form),
> form akan tetap di close dalam waktu 5 detik, bagaimana caranya biar form
> tidak terclose jika user masih menggunakannya ?
>
> Rgds,
> [dp]
>
>
> On 23/07/2013 10:09, Andy Ajhis Ramadhan wrote:
>
>
> Mungkin dengan ini bisa mas...
>
> Ini kode di form-nya...
> Private Sub UserForm_Activate()
> Application.OnTime Now + TimeValue("00:00:05"), "TutupTester" 'Disamping
> menyatakan dalam kurun waktu 5 detik.
> End Sub
>
> Private Sub TutupTester()
> Unload Tester
> End Sub
>
> Atau bisa diliat di form terlampir. tetapi digunakan atau tidak tetap
> saja tertutup otomatis.
>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* De Premor <d...@premor.net> <d...@premor.net>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 19 Juli 2013 13:00
> *Judul:* Re: [belajar-excel] timer untuk userform
>
> Kalo di vb ada ocx timer, tetapi di vba timer tersebut tidak bisa
> digunakan, jadi musti dibuat timerbaru yang support untuk vba
> Terlampir ada ocx timer yang support untuk dipakai di VBA
> Extract dulu file tersebut disebuah folder, misal di *
> C:\sesuatu\dptimer.ocx*
>
> Kemudian dari menu Startnya windows pilih menu Run, kemudian ketikkan
> *regsvr32
> "C:\sesuatu\dptimer.ocx"
>
> *nanti akan keluar box informasi jika registrasi OCX sukses
> *
>
> Selanjutnya, buka VBA Excel
> *Buka menu Tools - > Additional Control, aktifkan ocx controlnya
>
>
> Nanti akan muncul Icon baru di tombol controll, setelah itu tinggal di
> add aja ke form seperti biasa
>
>
>
> Kalau sudah, buka file excel yang dilampirkan, kemudian coba jalankan
> formnya
> disitu saya buat waktunya 10 detik, setiap kali form mendapat fokus,
> timer akan direset
>
> Rgds,
> [dp]
>
>
> Pada 19/07/2013 8:13, jajang muhammad siddik menulis:
>
>
>
> Dear exceler,
>
> Barangkali ada yang tau script untuk membuat sebuah userform akan close
> jika tidak digunakan dalam kurun waktu tertentu.
>
> Salam,
>
> JajangMS
>
>
>
>
>
>
>
vba_autoclose_userform.xlsm
Description: Binary data
