Cara Membuat form Login Di Vba Excel

Posted by Admin

Membuat form login di VBA Microsoft Excel sebenarnya sudah banyak para master-master excel yang share tutorial tentang membuat form login ini, walaupun sudah banyak, tapi tidak ada salahnya saya share juga,, ya nggak...? Karna berbagi itu bagi saya adalah sesuatu yang menyenangkan.

Sebagian orang ada yang belum tahu bagaimana cara membuat form di Microsoft Excel. Contoh sederhananya kali ini saya akan membagikan Cara Membuat Form Login Di Microsoft Excel.

Sebelum kita membuat form login kita harus tahu dulu Cara Mengaktifkan Jendela VBA Microsoft Excel 2007.
Membuat form login di sebuah aplikasi sangatlah penting untuk membatasi orang yang mengakses aplikasi kita.

Baiklah nggak usah banyak basa-basi ya,, Silahkan simak langkah-langkah nya di bawah ini

Kamu harus membuat dulu Username dan Password di Cell A2 dan Cell B2 Contoh nya seperti gambar di bawah ini

Setelah anda Aktifkan jendela vba macro tadi maka akan muncul Tab Developer
Silahkan Klik Tab Developer maka akan muncul icon-icon untuk menuju dalam pembutan sebuah form.

Klik Icon Visual Basic maka akan muncul jendela baru.

Klik Kanan pada VBA Project (Form Login) seperti gambar di bawah ini

Maka akan muncul UserForm1, Disainlah seperti contoh di gambar, Komponen yang digunakan Label, 2 Teksbox, 2 Command button.

Selanjutnya masuk ke coding, Double klik CommandButton1_Click (Login), ketikan coding berikut.

Private Sub CmdLogin_Click()
Set sh = Sheets(1)
Unload FrmLogin
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

Selanjutnya pada Tombol Keluar copas coding di bawah ini.


Private Sub CmdCancel_Click() 
Application.ActiveWorkbook.Close savechanges = True 
End

Selanjutnya pada ThisWorkbook Copas coding berikut.


Private Sub Workbook_Open()
FrmLogin.Show
End Sub

Selesai Deh coba jalankan Klik Run (F5).
Selamat mencoba
Bagi yang mau filenya silahkan download di bawah ini.

Download Now

Excel

Cara Membuat form Login Di Vba Excel

2 komentar