• pasang iklan

Menyembunyikan lembar kerja (aplikasi) Excel dengan macro


Blank Full Screen Excel
Setiap aplikasi pasti memiliki lembar kerja tak terkecuali microsoft excel, yang mana didalamnya terdapat ribbon menu, jendela kontrol, bidang kerja tempat kita biasanya menuliskan rumus atau fungsi dalam excel, dan lain sebagainya.
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 disini
Kemudian masukkan code berikut di THISWORKBOOK
Private Sub Workbook_Activate()
On Error Resume Next
Application.Visible = False
UserForm1.Show
end sub
full screen excel
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
  1. klik menu Insert UserForm
  2. userform excel
  3. Pastikan (name) yang terdapat pada jendela properties untuk userform bernama UserForm1
  4. Buatlah 2 buah tombol masing-masing diletakkan dalam jendela UserForm1
    untuk membuat tombol (CommandButton) pilih UserForm1 untuk menampilkan jendela toolbox-nya
  5. menambahkan tombol - commandbutton dalam userform
  6. 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
  7. rename commandbutton caption 
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 Keluar
Private Sub CommandButton2_Click()
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:

Buchek said...

bagaimana caranya code tersebut apabila formlogin yg digunakan saat membuka file ?

Post a Comment

Kategori Iklan