Assalamualaikum teman-teman semuanya.
Berjumpa lagi dengan Niruku Entertainment's Blogspot. Sesuai dengan judul dari postingan ini, saya akan memberikan sebuah Materi Pembelajaran mengenai Cara Membuat Form Login dari Excel Macro menggunakan Microsoft Visual Basic Application.
Mungkin ada beberapa dari teman-teman yang baru mengenal apa itu Excel Macro. Excel Macro adalah fitur yang telah disediakan oleh pihak Microsoft Office, namun masih belum terlalu banyak orang yang memakai fitur ini.
Excel itu sendiri adalah sebuah aplikasi pengolah data berupa angka yang dilengkapi dengan berbagai macam fitur-fitur up-to-date yang memanjakan usernya. Termasuk juga dalam hal Proteksi Privasi.
Namun, terkadang kita menginginkan proteksi tersendiri dengan menggabungkan aplikasi lain yang terhubung dengan Microsoft Excel. Bagaimana caranya ? Silahkan lanjutkan scroll ke bawah 😄.
- Buka Microsoft Office Excel kalian (mulai dari Office 07 - 16, tidak ada pengecualian)
- Pada Sheet1, RENAME lah Sheet tersebut menjadi Administrator, karena nama ini nantinya akan berguna saat proses coding.
- Setelah itu, pada Sheet Administrator, buatlah sebuah tabel administrator seperti ini :
- Setelah tabel administrator dibuat, klik File > Options > Costumize Ribbon > Centang CheckBox "Developer" > OK. Lihat gambar di bawah ini:
- Setelah itu secara otomatis akan muncul Tab Developer pada layar atas Microsof Excel teman-teman. Klik Tab Developer tersebut dan klik menu Visual Basic. Maka teman-teman akan berpindah ke interface Visual Basic.
- Kemudian pada halaman Visual Basic, silahkan klik menu Insert > UserForm (untuk menambahkan form baru). Dan design form seperti ini :
Catatan :
- TextBox1 diganti nama menjadi txtusername
- TextBox2 diganti nama menjadi txtpass
- CommandButton1 diganti nama menjadi BTLogin
- CommandButton2 diganti nama menjadi BTKeluar
- Sebelum kita masuk ke bagian coding dari FormLogin, kita set terlebih dahulu agar saat file Excel di load, akan memunculkan FormLogin terlebih dahulu. Codingnya adalah :
Sub WorkBook_Open()
Application.Visible = False
FormLogin.Show
End Sub
- Setting sudah selesai. Lanjut ke bagian coding pada FormLogin, silahkan simak dengan jelas dan terinci agar tidak ada terjadi error saat aplikasi dijalankan. Codingnya adalah :
If txtusername.Value = "" Or txtpass.Value = "" Then
MsgBox "Username / Password tidak boleh kosong !", vbExclamation, "Warning"
txtusername.SetFocus
Else
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Administrator")
iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
If WorksheetFunction.CountIf(Ws.Range("A3", Ws.Cells(iRow - 1, 3)), Me.txtusername.Value) > 0 Then
Nomor = Trim(Me.txtusername.Value)
With Sheets("Administrator")
Baris = .Columns("A").Find(Nomor).Row
PasswordUser = Range("B" & Baris).Value
End With
If txtpass.Value <> PasswordUser Then
MsgBox "Maaf Password yang anda masukkan salah !", vbCritical, "Error"
txtpass.Text = ""
txtpass.SetFocus
Else
MsgBox "Login Berhasil", vbInformation, "Sukses"
Unload Me
Application.Visible = True
End If
Else
MsgBox "User tidak terdaftar. Silahkan hubungi Administrator yang memiliki Privelege lebih tinggi", vbCritical, "Warning"
txtusername.Text = ""
txtpass.Text = ""
txtusername.SetFocus
Exit Sub
End If
End If
End Sub
- Setelah itu klik 2x pada BTKeluar dan berikut adalah codingnya :
Dim A As String
A = MsgBox("Keluar dari Aplikasi ?", vbQuestion + vbYesNo, "Konfirmasi")
If A = vbYes Then
Application.Quit
End If
End Sub
- Jika sudah, maka silahkan save file excel kalian dengan menekan CTRL + S. Namun perlu diingat, Jangan Langsung Menekan Tombol OK . Ubah terlebih dahulu Tipe File nya dari Excel Workbook menjadi Excel Macro-Enabled Workbook. Seperti gambar dibawah ini :
- Jika sudah, silahkan Close dan Open kembali file Excel Macro yang sudah dibuat. Silahkan lakukan testing dengan memasukkan Username dan Password yang telah diisi
Apabila teman-teman kurang mengerti dengan penjelasan pada postingan ini, teman-teman bisa melihatnya pada video berikut:
Oke , itu saja terlebih dahulu materi Microsoft Excel VBA Macro yang dapat saya berikan pada postingan ini. Terus pantengin New Post dari Niruku Entertainment's Blog dan juga jangan lupa Subscribe Channel Niruku pada link dibawah ini :
(jangan lupa nyalakan Lonceng agar dapat mengikuti video-video terbaru saya)
Terima kasih semuanya, sampai jumpa di Materi Pembelajaran selanjutnya. Wassalamualaikum 😃
Casino Roll: Play for Real Money with $/€500 Bonus - CasinoRoll
ReplyDeleteCasino Roll offers a real-money no deposit bonus 오락실슬롯머신게임 for new 강원 랜드 쪽박 걸 가격 players only. 포커 카드 to redeem this 스마일 먹튀 code: Get $/€500 bonus and a no deposit bonus 블랙 잭 무기 for new players.