√ Template Login Userform Disertai Coding Untuk Aplikasi Excel

Login dengan UserForm memang diharapkan saat seorang programer menciptakan aplikasi berbasis VBA excel, hal ini bertujuan untuk membatasi pengguna dari hal-hal yang tidak diinginkan. Anda bisa menciptakan sebuah password yang sulit ditebak pada Ms. Excel menyerupai yang pernah aku bahas, kalau berkenan membacanya silakan baca-baca

Lihat :
Bagaimana Membuat Password yang Sulit Ditebak

Jika Anda memahami atau minimal pernah mencoba menciptakan aplikasi sederhana memakai excel tentu hal ini sudah tidak aneh lagi namun apabila yang belum pernah menciptakan bagaimana cara menciptakan Form Login untuk aplikasi maka goresan pena ini wajib Anda baca.

Banyak tutorial di internet kalau Anda searching via google disana sudah banyak membahas mengenai bagaimana cara menciptakan userform login untuk sebuah aplikasi berbasis excel. Lho, kalau sudah banyak nagapain aku buat tutorial dan menyebarkan template untuk menciptakan form login? Begini, secara algoritman mungkin ada kemiripan antara userlogin dengan beberapa pembuat namun terkadang ada juga perbedaannya untuk itu bagi Anda yang mau mencar ilmu aku kira tidak ada salahnya untuk mencoba bagaimana memubat form login dari banyak sekali sumber.

Desain Template Interface Login dengan UserForm

Untuk tampilan Form Login aku membuatnya dengan ukuran Height = 188.25 sedangkan Width = 228.75 Anda bisa merubahnya silakan caranya dengan merubah pada properties value dan cari disana. Langsung saja berikut screen shoot dari Form Login tersebut :

Template Login UserForm

Ok, itulah desain interface untuk form login versi saya, untuk tombol login berwarna hijau dan apabila Anda mengarahkan mouse pad ke arah tombol tersebut maka akan berubah secara otomatis dan tombol tersebut akan diberi tanda ceklist.

Sebenarnya ada banyak cara untuk mengamankan file excel dan bahkan perlindungan VBA excel namun secara sederhana silakan

simak : Bagaimana cara menciptakan password di Ms. Excel

Tollbox Control yang aku gunakan hanya 2 buah ialah Image dan Textbox, artinya Anda harus bisa mengelola object Image pada toolbox contohnya aku akan memberi gambar untuk user menyerupai Icon insan dan untuk gambar password bergambar kunci.
Nah, disitu Anda cari di internet icon gambar atau file yang berektensi PNG, alasannya type file gambar ini akan memudahkan kita untuk menciptakan object tanpa background atau kalau Anda kreatif bersama-sama bisa dibentuk di Photoshop.

Langkah pertama Anda harus menciptakan 2 buah sheet dan  berinama atau ganti untuk Sheet1 dengan "UserPassword" sedangkan Sheet2 ganti dengan "SelamatDatang" Setelah itu kini masuk ke VBA editor untuk menciptakan desain userform

# Merubah Propertie untuk Setiap Object
UserForm, biarkan saja tanpa adanya perubahan Name jadi tetap default "UserForm1"
2 buah textbox, Anda harus merubah Name nya untuk Textbox1 silakan ganti dengan "InputUser" sedangkan untuk Textbox2 silakan ganti dengan "InputPassword"
Untuk tombol Login aku gunakan 2 buah object Image aku satu berjulukan "TombolLog1" dan yang kedua aku ganti Name nya menjadi "TombolLog2".

Dari gambar diatas Anda satukan untuk TombolLog2 ke TombolLog1 sehingga salah satu tombol tidak terlihat.

Cara Coding UserForm Login

Bagaimana cara coding atau menciptakan script UserForm Login tersebut? Ok, kalau desain interface sudah dibentuk langkah berikutnya kita akan menciptakan coding

#Coding Image2
Coding ini akan berfungsi apabila mouse pointer gergerak ke arah TombolLog1 maka TombolLog1 akan muncul sedangkan TombolLog2 tidak ditampilkan

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = True
TombolLog2.Visible = False
End Sub

#Coding UserFrm Initialize
Coding ini akan memperlihatkan inisial untuk mekanisme biar TombolLog2 disembunyikan/tidak ditampilkan

Private Sub UserForm_Initialize()
TombolLog2.Visible = False
End Sub

#Coding UserForm MouseMove
Pada coding ini apabila mouse pointer mengarah pada userform maka TombolLog1 akan titampilkan sedangkan TombolLog2 disembunyikan. Ini merupakan kebalikan dari coding Image2 diatas.

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = True
TombolLog2.Visible = False
End Sub

#Coding TombolLog1
Coding ini berfungsi saat Mose Pad mengarah pada TombolLog1 maka TombolLog1 tidak ditampilkan sedangkan TombolLog2 ditampilkan 

Private Sub TombolLog1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = False
TombolLog2.Visible = True
End Sub

#Coding TombolLog2
Coding dari TombolLog2 ini berfungsi saat TombolLog2 diklik maka akan membaca coding dibawahnya. Jika InputUser tidak diisi maka akan muncul pesan "Silakan masukan nama pengguna" Jika textbox InputPassword tidak diisi maka akan muncul pesan "Silakan Masukan password" dan focus akan kembali ke textbox masing-masing. Jika nama pengguna dan password salah maka muncul juga pesan peringatan namun apabila benar maka akan muncul isu "Selamat Anda berhasil Masuk" dan worksheet "SelamatDatang" akan diaktifkan

Private Sub TombolLog2_Click()
Set sh = Sheets("UserPassword")
If InputUser.Value = "" Then
    MsgBox "Silahkan Masukkan Nama Pengguna", _
    vbExclamation + vbOKOnly, "Informasi"
    InputUser.SetFocus
    Exit Sub
ElseIf InputPassword.Value = "" Then
    MsgBox "Silahkan Masukkan Password", _
    vbExclamation + vbOKOnly, "Informasi"
    InputPassword.SetFocus
    Exit Sub
ElseIf InputUser.Value <> sh.Range("A2").Value Then
    MsgBox "Nama Pengguna Salah", _
    vbCritical + vbOKOnly, "Pesan Error"
    InputUser.Value = ""
    InputUser.SetFocus
    Exit Sub
ElseIf InputPassword.Value <> sh.Range("B2").Value Then
    MsgBox "Password Salah, Silahkan ulangi lagi", _
    vbCritical + vbOKOnly, "Pesan Error"
    InputPassword.Value = ""
    InputPassword.SetFocus
    Exit Sub
End If
MsgBox "Selamat Anda berhasil Masuk", _
    vbInformation + vbOKOnly, "Login Berhasil"
Sheets("SelamatDatang").Activate
Unload Me
End Sub

#Coding Ketika Tombol di Close
Pada coding ini kita akan membatasi pada Queri tombol Close UserForm biar saat close tombol yang berwarna merah di ujung kanan atas UserForm maka muncul peringatan bahwa aplikasi akan ditutup dan nantinya pribadi disimpan otomatis.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
   Cancel = True
   MsgBox "Aplikasi akan ditutup", _
   vbExclamation + vbOKOnly, "Peringatan"
   With ThisWorkbook
        .Application.ThisWorkbook.Save
        .Application.Quit
   End With
End If
End Sub

Coding selesai, hingga disini kita sudah bisa menciptakan Login UserForm untuk aplikasi excel. Bagaimana cara menjalankannya? Klik tombol RUN yang berwarna hijau menyerupai bidang segitiga. Untuk mengaplikasikannya Anda bisa memanggil userform login ini ke prosedure saat workbook / file excel dibuka dengan coding sebagai berikut :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Ingat coding diatas diketiikan pada Thisworkbook. Lihat gambar berikut sebagai ilustrasinya

Wah, sudah panjang goresan pena ini dan aku kira sudah cukup lengkap untuk pemahaman menciptakan login dengan userform dalam pembuatan aplikasi berbasis excel ini. Semoga gampang dipahami, oia, untuk file d0wnl0ad template Login UserForm silakan klik dibawah ini

Download Template Login UserForm

Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/