
Namun pernahkah anda membayangkan bagaimana jika itu semua disembunyikan (bukan ditutup, red)...
ya, artinya aplikasi utama excel disembunyikan kemudian yang kita tampilkan mungkin berupa form, atau mungkin sebuah jendela pesan.
Bagaimana cara membuatnya?
Langkah 1 : Membuat kode untuk menyembunyikan aplikasi excel
Trik ini menggunakan bantuan Macro VBA, jadi buka terlebih dahulu jendela VB-nya dengan menggunakan shortkey Alt+F11 atau lebih jelasnya lihat caranya disiniKemudian masukkan code berikut di THISWORKBOOK
Private Sub Workbook_Activate()
On Error Resume Next
Application.Visible = False
UserForm1.Show
end sub
On Error Resume Next
Application.Visible = False
UserForm1.Show
end sub

Jika diartikan secara harfiah sebagai berikut:
pada saat workbook ini aktif terbuka dan dengan memberikan perintah awal untuk memaksa tetap menjalankan code (jika bisa) atau mengabaikan pesan error (jika ada), kemudian macro tersebut meminta agar aplikasi excel untuk sembunyi. Baru kemudian setelah perintah itu berhasil dilakukan semua, kemudian macro memanggil sebuah form dengan nama Userform1 sebagai ganti dari aplikasi yang tersembunyi tadi.
Langkah 2 : Membuat Form sebagai tampilan aplikasi
Masih dalam jendela VB buat satu buah userform dengan langkah sebagai berikut- klik menu Insert > UserForm
- Pastikan (name) yang terdapat pada jendela properties untuk userform bernama UserForm1
- Buatlah 2 buah tombol masing-masing diletakkan dalam jendela UserForm1
untuk membuat tombol (CommandButton) pilih UserForm1 untuk menampilkan jendela toolbox-nya - Dalam jendela Userform1 muncul 2 buah tombol dengan nama CommandButton1 dan CommandButton2, kemudian ganti masing-masing nama dari tombol diatas menjadi CommandButton1 (kembali) dan CommandButton2 (Keluar) dengan cara pilih tombol yang ingin dirubah kemudian pada jendela properties pada sub Caption ketikkan nama baru dari tombol tersebut


Langkah 3 : Memberikan kode untuk masing-masing tombol
Kode untuk Tombol Kembali Klik 2x tombol Kembali dan masukkan kode berikut
Private Sub CommandButton1_Click()
Application.Visible = True
End Sub
Kode untuk tombol KeluarApplication.Visible = True
End Sub
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub
Application.DisplayAlerts = False
Application.Quit
End Sub
Simpan file dengan type Excel Macro-Enabled Workbook
Sumber Informasi :
http://www.rumahexcel.com/2012/10/menyembunyikan-lembar-kerja-aplikasi.html#ixzz2oLcBdwE8


1 comments:
bagaimana caranya code tersebut apabila formlogin yg digunakan saat membuka file ?
Post a Comment