Tuesday, June 20, 2017

Cara Membuat Form Login VBA Excel Dengan Username/Password Saja

Cara Membuat Form Login VBA Excel Dengan Username/Password Saja- Form login dibutuhkan agar aplikasi tidak dapat digunakan oleh orang lain yang tidak berhak. Form Login pada aplikasi juga merupakan salah satu cara untuk mengamankan dan melindungi data dalam aplikasi dari pihak-pihak yang tidak diinginkan. Aplikasi hanya akan dapat digunakan oleh User yang mengetahui Username/Password login saja.

Ibarat pada sebuah rumah, Kunci pintu merupakan Form login untuk masuk kedalam rumah. Hanya orang yang memiliki kunci pintu saja yang bisa membuka pintu dengan baik dan masuk dengan benar kedalam sebuah rumah. Jika masuk dengan cara membobol pintu atau jendela, kita bisa dikatakan pencuri atau istilah lainnya dalam dunia aplikasi sebagai pembobolan aplikasi.

Pada posting yang berjudul Cara Bikin Form Login User Aplikasi Dengan UserForm VBA Excel sebenarnya sudah dibahas cara membuat form login. Cara pada pasting tersebut Username dan Password yang digunakan untuk login terdapat dalam baris kode vba. Pada kesempatan ini kita akan mencoba membuat form login sederhana yang hanya meminta Username/password saja dan data username atau password terdapat pada sheet. Perhatikan gambar gif diatas agar anda lebih paham maksud dari posting ini.



Langkah-langkah Membuat Form Login VBA Excel Dengan Username/Password Saja
  • Buka Microsoft Excel, Ganti nama Sheet1 menjadi LoginUser dan ganti juga nama Sheet2 menjadi "Beranda". 
  • Tulislah "senbakusen" di cell B2 dengan  yang akan kita jadikan sebagai Username atau Password login.
  • Buka Visual Basic yang terdapat pada Tab Developer dan rancang sebuah userform yang akan kita jadi sebagai form login lengkapi element-element yang dibutuhkan menggunakan Tools dengan ketentuan sebagai berikut :
Properties UserForm1, Ubah Caption "Login User", ubah warna Background sesuai selera anda.
Properties Frame1, hapus Caption Frame1, biarkan kosong saja, SpecialEffect gunakan 6- FmSpecialEffectBump, atau atur sesuai dengan selera anda sendiri.
Properties TextBox1, Ubah BackColor dan ForeColor sesuaikan dengan seleran anda.
Properties CommandButton1, Ubah Caption "Masuk"
Properties CommandButton2 Ubah Caption "Batal"
  • Jika sudah pada tahap perancangan maka berikutnya kita akan memasukkan kode vba. Klik kanan pada CommandButton1 dengan Caption "Masuk" pilih View Code dan tulislah kode berikut ini :
Private Sub CommandButton1_Click()
If TextBox1.Value = Sheets("LoginUser").Range("B2").Value Then
    Sheets("Beranda").Select
    Unload Me

Else
    MsgBox "Maaf..!! Password salah..!!Coba Lagi", vbCritical, "Login User"
End If

End Sub
Keterangan :
If TextBox1.Value = Sheets("LoginUser").Range("B2").Value Then Jika pada TextBox1 isi datanya sama dengan isi data pada Sheet LoginUser pada Range B2 maka akan melaksanakan perintah Sheets("Beranda").Select Sheet Beranda akan dipilih dan terlihat, Selanjutya Unload Me merupakan perintah untuk menghentikan tampilan Form Login. Else jika datanya yang diisi pada Textbox1 tidak sesuai atau berbeda maka akan menjalankan perintah MsgBox "Maaf..!! Password salah..!!Coba Lagi", vbCritical, "Login User" yang akan memberikan informasi peringatan menggunakan kotak dialog pesan bahwa password salah.

Note : Dari keterangan diatas dapat dipahami bahwa Username atau Password yang digunakan untuk login terdapat pada Sheet LoginUser  yang tertulis pada cell B2. Bagaimana jika kita ingin membuat username atau password langsung ditulis dalam kode Vba saja ? Caranya anda tinggal menggunakan kode berikut ini. Dipilih saja mana yang lebih cocok bagi anda dalam membuat aplikasinya.

If TextBoxLogin = "senbakusen" Then
      Sheets("Beranda").Select
      Unload Me

   Else
       MsgBox "Maaf..!! Password salah..!!Coba Lagi", vbCritical, "Login User"
End If
  • Klik kana pada CommandButton2 dengan caption Batal, pilih View Code dan tulislah kode berikut ini :
Private Sub CommandButton2_Click()
Application.Visible = False
ActiveWorkbook.Close savechanges:=True
Application.Quit
End Sub
  • Untuk mencegah pengguna mengklik tombok close (x) bawaan yang akan menghalangi pengguna untuk masuk ke dalam WorkSheet  maka tulislah kode berikut ini :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = 0 Then
        Cancel = True
        MsgBox "Gunakan Tombol Batal...!!!", vbCritical, "Login User"
    End If
End Sub
  • Agar Form Login muncul otomatis saat pengguna membuka file, maka tulislah kode berikut ini pada ThisWorkbook
Private Sub Workbook_Open()
Application.Visible = True
UserForm1.Show
End Sub

Jika kita menginginkan Worksheet atau WorkBook Excel disembunyikan dan yang muncul hanya UserForm Login saja makan ubah nila True menjadi False

Selesai...!! Coba uji aplikasi apakah akan berjalan sebagaimana diharapkan. Jika anda telah menempatkan kode dengan benar dan tepat maka Form Login yang berjalan persis sama dengan gambar gif diatas posting ini. Jika masih ada kendala harap bisa disampaikan pada kolom komentar yang tersedia dibawah posting ini.

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon