Form Login
(Formulir Login) adalah salah satu metode keamanan dalam mengakses sebuah
halaman aplikasi pada platform apa pun.
Misalkan,
Anda mengembangkan sebuah aplikasi atau spreadsheet excel yang cukup rumit dan
rahasia, kemudian Anda ingin menerapkan batasan pengguna, siapa saja yang boleh
menggunakan / mengelola aplikasi yang sudah dibuat, sehingga hanya pengguna
resmilah yang dapat mengakses aplikasi tersebut, maka fitur berupa form login
akan sangat berguna.
Di sini,
akan memanfaatkan komponen kontrol formulir untuk input data (Data Entry Form) yang sudah
tersedia pada menu VBA. Pada formulir input data ini, akan dibuat fitur form Login (FrmLogin), sehingga
setiap kali pengguna akan membuka aplikasi, maka akan diminta keabsahan /
verifikasi bahwa pengguna tersebut memiliki akses untuk menggunakan aplikasi
input data berupa username dan password. Jika isian yang diberikan oleh pengguna itu benar, sesuai dengan yang diminta
oleh aplikasi maka pengguna dapat membuka aplikasi untuk penggunaan lebih
lanjut, namun jika isinya tidak sesuai, maka pengguna tidak dapat
melanjutkan pekerjaannya di excel.
Mari kita mulai membuka jendela VBA (Visual Basic of Application), caranya adalah dengan memilih menu Tab Developer pada Microsoft Excel, kemudian klik ikon Visual Basic yang berada pada bagian yang paling kiri.
Selanjutnya pilih menu insert dan pilih menu userform untuk mulai membuat halaman desain form login.
Kemudian buatlah halaman desain untuk form login seperti contoh dibawah ini:
Sesuaikan bagian properties dari setiap kontrol yang digunakan dalam formulir ini, contohnya seperti komponen textbox, properties yang perlu kita ubah adalah name atau komponen button, properties yang perlu kita ubah adalah nama dan caption.
Setelah halaman desain selesai dibuat, berikutnya adalah mulai menambahkan kode program.
Langkah pertama adalah, gunakan jendela modul dan buat deklarasi variabel global untuk menyimpan data login yang tidak valid.
Public cekLogin As Integer
Tuliskan kode di bawah ini pada halaman form frmLogin.
Private Sub frmLogin_Initialize()
Me.txtUserName.Value = ""
Me.txtPassword.Value = ""
Me.txtUserName.SetFocus
End Sub
Kemudian tambahkan kode dibawah ini, pada bagian komponen kontrol button untuk event click:
Private
Sub cmdLogin_Click()
Dim user As String
Dim password As String
user = Me.txtUserName.Value
password = Me.txtPassword.Value
If (user = "admin1" And password = "1234") Or (user = "admin2" And password = "1234") Then
Unload Me
Application.Visible = True
Else
If CekLogin < 3 Then
MsgBox "Kesalahan login, silahkan coba lagi.", vbOKOnly + vbCritical, "Perhatian"
CekLogin = CekLogin + 1
Else
MsgBox "Anda gagal login sebanyak 3 kali.", vbOKOnly + vbCritical, "Informasi"
Unload Me
ThisWorkbook.Close Savechanges:=False
Application.Visible = True
CekLogin = 0
End If
End
If
End Sub
Kemudian tambahkan kode dibawah ini, pada bagian komponen kontrol button cmdClear untuk event click:
Private Sub cmdClear_Click()
Me.txtUserName.Value = ""
Me.txtPassword.Value = ""
Me.txtUserName.SetFocus
End Sub
Tambahkan kode dibawah ini, pada bagian komponen
kontrol button cmdClose untuk event click:
Private Sub FrmLogin_QueryClose(Cancel As
Integer, CloseMode As Integer)
If
CloseMode = 0 Then Cancel = True
End Sub
Setelah menyelesaikan semua kode pada setiap komponen kontrol, langkah selanjutnya adalah dengan melakukan klik dua kali pada bagian ThisWorkbook di jendela Project Explorer untuk melihat jendela kode. Tuliskan kode di bawah ini pada event Window Open untuk memberikan inisialisasi variabel global,
Private Sub Workbook_Open()
CekLogin = 0
Application.Visible = False
frmLogin.Show
End Sub
Setelah halaman desain dan
kode program selesai dibuat, kemudian simpan file ini dan buka kembali untuk
dilakukan pengujian dengan mengaktifkan Macro. Maka akan muncul halaman
FrmLogin untuk dilakukan pengujian input username dan password.
0 Response to "Cara Membuat Halaman Login Pada Microsoft Excel Menggunakan VBA"
Posting Komentar