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