FORM LOGIN EXCEL - VBA MACRO

Bagaimana cara membuat form login sebelum masuk ke workbook atau worksheets excel ? ada beberapa contoh yang sudah kami posting, salah satunya form login dengan banyak anggota. Nah, kali ini kami akan menjelaskan bagaimana rute atau alur cara membuat form login muncul sebelum workbook.

Ada beberapa langkah yang harus Anda lakukan yaitu : 

1. Buka Excel Anda
2. Tekan Alt+F11 maka Anda akan masuk di jendela Visual basic for Application (VBA)
3. Buatlah satu buah userform
4. Kemudian buatlah form seperti gambar dibawah ini


5. Pada tombol Commandbutton "Keluar" klik dua kali dan masukan kode macro dibawah ini

Unload Me
Application.visible = false
Application.quit

6. Selanjutnya klik dua kali tombol Commandbutton "Masuk" dan salin kode macro dibawah ini

If TextBox1 = ""then
msgbox"maaf, password harus diisi !!",vbcritical ,"sistem aplikasi"
me.textbox1.setfocus
exit sub : end if

if textbox1 = "saya" then
msgbox"password sesuai, terimakasih",vbinformation, "sistem aplikasi"
Application.visible = true
Unload Me
Sheets ("Sheet1").Select : Range("A1")="www.mtsbmtumbrasanom.id"
Else
msgbox"maaf, password yang Anda masukan salah !!",vbcritical,"sistem aplikasi"
textbox1=""
me.textbox1.setfocus
Exit sub : End If

7. Kemudian pada project "Thisworkbook" klik dua kali dan masukan kode macro dibawah ini

Sub Workbook_open()
Application.visible=false
Userform1.show
End Sub

8. Sekarang silahkan simpan dengan type "Excel macro - Enable workbook"
9. Silahkan keluar dan buka lagi, maka form login akan muncul lebih awal dari pada workbook

PENJELASAN KODE MACRO FORM LOGIN EXCEL

Pada project "Thisworkbook" :

Application.Visible = False 'Workbook di sembunyikan
UserForm1.Show 'Userform 1 di panggil / di tampilkan

Pada project "Userform1"  tombol "Keluar" :

Unload Me 'userform di sembunyikan
Application.Visible = False 'workbook di sembunyikan
Application.Quit 'kelaur dari aplikasi excel

Pada project "Userform1"  tombol "Masuk" :

If TextBox1 = "" Then 'jika textbox1 kosong/tidak diisi
MsgBox "maaf, password harus diisi !!", vbCritical, "sistem aplikasi" ' maka ada pesan seperti ini
Me.TextBox1.SetFocus 'kemudian kursor secara otomatis akan berada pada textbox1
Exit Sub: End If 'peng akhiran dari if diatas

If TextBox1 = "saya" Then 'jika password sesuai yaitu "saya"
MsgBox "password sesuai, terimakasih", vbInformation, "sistem aplikasi" 'maka ada pesan seperti ini
Application.Visible = True 'workbook di tampilkan
Unload Me 'userform di sembunyikan
Sheets("Sheet1").Select: Range("A1") = "www.mtsbmtumbrasanom.id" 'menuju ke sheet1 dan otomatis di range A1 Sheet1 ada tulisan www.mtsbmtumbrasanom.id
Else 'jika passworf tidak sesuai
MsgBox "maaf, password yang Anda masukan salah !!", vbCritical, "sistem aplikasi" 'maka ada pesan ini
TextBox1 = "" 'tulisan pada textbox1 di hapus
Me.TextBox1.SetFocus 'kemudian kursor kembali ke textbox1
Exit Sub: End If 'peng akhiran if di atas

Tonton Video
Selain memberikan artikel dan lampiran sampel file, kami juga memberikan video yang mungkin ini akan membantu Anda untuk mendapatkan hasil yang maksimal dari artikel ini. Tonton Video Disini.

Demikianlah penjelasan kami tentang Kode Macro Form Login Excel, semoga ini berguna bagi Anda semua. Nah, jika artikel ini berguna, maka silahkan Anda bagikan melalui media sosial yang Anda punya. Biarlah ilmu ini terus mengalir. Untuk contoh file dari artikel ini, dapat Anda unduh dengan cara mengunjungi halaman download kami disini.

"Kami Selalu Berusaha Memberikan Yang Terbaik dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015

Berlangganan berita via email..

0 Response to "FORM LOGIN EXCEL - VBA MACRO"