27 April 2016

Cara Membuat form Login Di Vba Excel

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. 

    Share This

    SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

    0 Comments:

    Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.