Cara Membuat Form Login di Microsoft Excel
Daftar Isi
Untuk itu kali ini saya akan memberikan tutorial cara membuat Form Login di Microsoft Excel.
Berikut Langkah-langkah Pembuatan Form Login di Microsoft Excel
- Buka atau jalankan aplikasi Microsoft Excel.
- Simpan dalam format Excel Macro Enable (*.xlsm) atau Excel Binary (*.xlsb).
- Pada Sheet 1 Sel A2 dan B2 ketikkan "admin" (tanpa tanda petik).
- Tekan Alt+F11 untuk menampilkan aplikasi Microsoft Visual Basic atau bisa juga melalui Tab Developer --> Visual Basic
- Klik Kanan pada VBAProject dan pilih Insert --> UserForm pada Properties Namenya ubah menjadi FrmLogin dan pada captionnya menjadi User Login.
- Tambahkan pada UserForm komponen berikut ini:
- 3 buah Label (ubah captionnya menjadi Silahkan Login, User Name dan Password).
- 2 buah TextBox (ubah Properties Namenya menjadi TxtUser dan TxtPswd dan pada Password Char untuk TxtPswd isikan * ).
- 2 buah Command Button (ubah Properties Namenya menjadi CmdLogin dan CmdCancel dan ubah Captionnya menjadi Login dan Cancel.
- Kemudian susunlah Label, TextBox dan Command Button, contoh disusun seperti gambar di bawah ini:
- Selanjutkan klik kanan pada UserForm dan pilih View Code kemudian masukkan semua script berikut ini:
Private Sub CmdLogin_Click() Set sh = Sheets(1) If TxtUser.Value = "" Then MsgBox "Silahkan Masukkan User Name", _ vbExclamation + vbOKOnly, "Blank User Name" TxtUser.SetFocus Exit Sub ElseIf TxtPswd.Value = "" Then MsgBox "Silahkan Masukkan Password", _ vbExclamation + vbOKOnly, "Blank Password" TxtPswd.SetFocus Exit Sub ElseIf TxtUser.Value <> sh.Range("A2").Value Then MsgBox "User Name Salah/Tidak Terdaftar", _ vbCritical + vbOKOnly, "Error User Name" TxtUser.SetFocus Exit Sub ElseIf TxtPswd.Value <> sh.Range("B2").Value Then MsgBox "Password Salah, Silahkan ulangi lagi", _ vbCritical + vbOKOnly, "Error Password" TxtPswd.SetFocus Exit Sub End If MsgBox "Selamat Anda berhasil Login", _ vbInformation + vbOKOnly, "Login Sukses" Unload Me Sheets(2).Activate End Sub Private Sub CmdCancel_Click() Unload Me End Sub
- Selanjutnya tekan F5 untuk menguji UserForm. Coba pada User Name dan Password masukkan text "admin" (tanpa tanda petik") dan kemudian klik Login.
Jika semua script dan pengaturan komponennya sudah benar maka akan muncul pesan "Selamat Anda Berhasil Login".
Penjelasan Script VBA-nya:
Jika semua kondisi diatas terpenuhi (TxtUser & TxtPswd tidak kosong dan TxtUser & TxtPswd sama dengan Sheet 1 Sel A2 & B2) maka Perintah IF di Akhiri (End If) dan perintah selanjutnya akan dijalankan.
Kurang lebihnya begitulah maksud dari script VBA diatas, agar Form Login bisa muncul saat file Excelnya di buka maka perlu ditambahkan lagi script berikut ini:
Mungkin cukup sekian penjelasan mengenai cara membuat Form Login di Microsoft Excel. Semoga Bermanfaat....
Private Sub CmdLogin_Click()
.......
End Sub
Ketika Tombol CmdLogin di klik, maka perintah ....... akan dijalankan
.......
End Sub
Set sh = Sheets(1)
Mengeset sh = Sheets(1) atau bisa ditulis sh = Sheets("Sheet1").
If TxtUser.Value = "" Then
MsgBox "Silahkan Masukkan User Name", _
vbExclamation + vbOKOnly, "Blank User Name"
TxtUser.SetFocus
Exit Sub
Jika TxtUser tidak di isi atau kosong maka akan muncul pesan "Silahkan Masukkan User Name", dan pointer akan di set pada TxtUser dan Sub diakhiri (Exit Sub)MsgBox "Silahkan Masukkan User Name", _
vbExclamation + vbOKOnly, "Blank User Name"
TxtUser.SetFocus
Exit Sub
ElseIf TxtPswd.Value = "" Then
MsgBox "Silahkan Masukkan Password", _
vbExclamation + vbOKOnly, "Blank Password"
TxtPswd.SetFocus
Exit Sub
Jika TxtPswd tidak di isi atau kosong maka akan muncul pesan "Silahkan Masukkan Password", dan pointer akan di set pada TxtPswd dan Sub diakhiri (Exit Sub).
MsgBox "Silahkan Masukkan Password", _
vbExclamation + vbOKOnly, "Blank Password"
TxtPswd.SetFocus
Exit Sub
ElseIf TxtUser.Value <> sh.Range("A2").Value Then
MsgBox "User Name Salah/Tidak Terdaftar", _
vbCritical + vbOKOnly, "Error User Name"
TxtUser.SetFocus
Exit Sub
Jika TxtUser di isi tapi isinya tidak sama dengan Sheet1 Sel A2 maka akan muncul pesan "User Name Salah/Tidak Terdaftar", dan pointer akan di set pada TxtUser dan Sub diakhiri (Exit Sub).
MsgBox "User Name Salah/Tidak Terdaftar", _
vbCritical + vbOKOnly, "Error User Name"
TxtUser.SetFocus
Exit Sub
ElseIf TxtPswd.Value <> sh.Range("B2").Value Then
MsgBox "Password Salah, Silahkan ulangi lagi", _
vbCritical + vbOKOnly, "Error Password"
TxtPswd.SetFocus
Exit Sub
End If
Jika TxtPswd di isi tapi isinya tidak sama dengan Sheet 1 Sel B2 maka akan muncul pesan "Password Salah, Silahkan Ulangi lagi", dan pointer akan di set pada TxtPswd dan Sub diakhiri (Exit Sub).MsgBox "Password Salah, Silahkan ulangi lagi", _
vbCritical + vbOKOnly, "Error Password"
TxtPswd.SetFocus
Exit Sub
End If
Jika semua kondisi diatas terpenuhi (TxtUser & TxtPswd tidak kosong dan TxtUser & TxtPswd sama dengan Sheet 1 Sel A2 & B2) maka Perintah IF di Akhiri (End If) dan perintah selanjutnya akan dijalankan.
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
Unload Me
Sheets(2).Activate
Akan muncul pesan "Selamat Anda Berhasil Login" dan User Form akan di tutup serta Sheet 2 akan diaktifkan.vbInformation + vbOKOnly, "Login Sukses"
Unload Me
Sheets(2).Activate
Private Sub CmdCancel_Click()
Unload Me
End Sub
Ketika Tombol CmdCancel di klik maka User Form akan di Tutup.Unload Me
End Sub
Kurang lebihnya begitulah maksud dari script VBA diatas, agar Form Login bisa muncul saat file Excelnya di buka maka perlu ditambahkan lagi script berikut ini:
Private Sub Workbook_Open()
FrmLogin.Show
End Sub
Caranya pada VBAProject --> klik kanan pada ThisWorkbook -->View Code kemudian masukkan script diatas.
Lampiran
Form Login Sederhana
Excel Binary Workbook (xlsb)
Mungkin cukup sekian penjelasan mengenai cara membuat Form Login di Microsoft Excel. Semoga Bermanfaat....
jadi ketika kita tdk bisa/tdk jadi login dg menekan tombol close "X" atau tombol "cancel" perintahnya langsung menutup workbook. Trims sblmnya.
Apakah yang diisi di A2 pada Sheet1 sebagai Username dan B2 sebagai Password itu harus alphabet A-Z??
karena setelah ane coba diisi di A2 pada Sheet1 "admin" dan B2 "boleh" maka login berhasil
akan tetapi jika ane coba diisi di A2 pada Sheet1 "4dm1n dan B2 "12345678" login gagal keterangan password salah.
Thanks sebelumnya,,
kenapa jika Sheet1 A2 diisi dengan sebagai usernamenya alphabet A-Z
dan B2 sebagai password diisi dengan numeric, dan disaat diclick login maka
muncul "Password yang masukan salah"
apakah yang harus diisi di Sheet1 A2 dan B2 harus alphabet dan tidak bisa pakai
numeric??
Thanks sebelumnya master,,,,
terima kasih
Script udah diganti jadi...
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
End
Sheets(2).Activate
Tapi kok sheet(2)nya gak aktif ya...msih aktif di sheet(1) stlh Login...
Mohon pencerahannya...
Ma'af,Master...
Saya sudah mengikuti sampai pembahasan pertanyaan mas Juwaeni Ahmad diatas...
Dari yang awalnya begini:
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
Unload Me
Sheets("Sheet2").Activate
Ubahlah menjadi begini:
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
End
Sheets("Sheet2").Activate
Tapi kok Sheet2 nya gak aktif ya, saya masih di Sheet1 setelah berhasil login...
Mohon pencerahannya,Master...
Terima Kasih...
script apa lagi yg harus ditambahkan apabila file excel tersebut akan di buka form login tersebut bisa menjadi protect, dengan kata lain file tersebut tdk dapat dibuka apabila tdk melewati form login tersebut, terima kasih sebelumnya
saat file excel nya dibuka form login nya tdk langsung tampil,
pdhl sda msukkan script Workbook_Open() FrmLogin.Show
dan setelah login tdk langsung msuk ke lembaran kerja excel
trima kasih sebelumnya gan ..
kalo sempet bales ke email saya gan >> hilayah93@gmail.com terima kasih
Mohon Pencerahannya.
Ini contoh yang saya buat n kira-kira mana yg salah :
Private Sub CmdLogin_Click()
Set sh = Sheets(1)
If txtUserName.Value = "" Then
MsgBox "Silahkan Masukkan User Name", vbExclamation + vbOKOnly, "Blank User"
TxtUser.SetFocus
Exit Sub
ElseIf txtPassword.Value = "" Then
MsgBox "Silahkan Masukkan Password", vbExclamation + vbOKOnly, "Blank User"
TxtUser.SetFocus
Exit Sub
ElseIf txtUserName.Value <> sh.Range("A2").Value Then
MsgBox "User Name Salah / Tidak terdaftar", vbCritical + vbOKOnly, "Error User Name"
TxtUser.SetFocus
Exit Sub
ElseIf txtPassword.Value <> sh.Range("B2").Value Then
MsgBox "Password Salah, Silahkan Ulangi Lagi", vbCritical + vbOKOnly, "Error Password"
TxtUser.SetFocus
Exit Sub
End If
MsgBox "Selamat Anda Berhasil Login", vbInformation + vbOKOnly, "Login Sukses"
Unload Me
Sheets(2).Activate
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub FrmLogin_QueryClose(Cancel As Integer, CloseMode As Integer)
If QueryClose = 0 Then Application.Quit
End Sub
Saya belajar bikin login.
kenapa pada saat saya ketikan pada kotak login, munculnya alpabet ? bukan tanda * atau tanda titik (.) padahal viewcode sudah sesuai.
Tolong pencerahannya
IfTxtUser.Value = ""Then
ElseIfTxtPswd.Value = ""Then
Pada coding (""Then) block warna biru dan muncul compile error, expeced: end of statement.
ElseIfTxtUser.Value <> Sh.Range("A2").Value Then
ElseIfTxtUser.Value <> Sh.Range("A2").Value Then
Pd tanda (<>) block biru uncul compile error: Expected: expression.
mohon koreksi n pencerahannya......
kalau berkenan dpt dikirim ke email: ssulaimanlatief@gmail.com
Ada yg ingin saya tanyakan :
1. Bagaimana cara membuat form login multi user
2. Setelah berhasil login user name nya langsung tercopy di sheet lain.
Mantap Kang Sangat Bermanfaat
Masih belajar ni
Pingin tukar fikiran donk
kemudian user tersebut mendisable macronya,.
pasti workbook tersebut bisa dibuka juga akhirnya master,.
Mohon pencerahaanya master,.
izin numpang promosi yaa gan..
form login banyak anggota (username dan password ditentukan operator)
Tapi pas di input username login dan passwordnya, selalu muncul username tidak terdaftar
Tapi maaf master
Saya sudah ikuti semua langka2nya tapi ada kendala
1. Setelah login berhasil tapi balik ke vba lg y padahal udah di masukan yg rumus ini
DMsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
End
Sheets(2).Activate
2. Stelh di ttup buka kembali terbukana biasa worksheet biasa dan ada disabled padahal rumus yg ini udah masuk
Private Sub Workbook_Open()
FrmLogin.Show
End Sub
Mohon pencerahn maklum pemula
Terimakasih
semoga berkenan untuk membantu saya. karena aplikasi ini saya gunakan dalam pekerjaan saya.
terima kasih.
Deri Prayudi (email : deriprayudi90@gmail.com)
Compile error
Only comments may appear after End Sub,End Function,or End Property