Cara Membuat Form Login di Ms. Excel

Anda mungkin sudah tahu apa, itu form login. Form login biasanya meminta data username dan password. Dalam tutorial ini kita akan belajar membuat salah satu contoh form login yang fungsinya sebagai pengaman atau pada saat orang lain ingin membuka lembar kerja worksheet Ms. Excel kita, mereka tidak dapat membukanya sebelum mengetahui user name dan password yang kita buat.

Cara membuatnya adalah sebagai berikut :

Langkah 1 :

Buka lembar kerja worksheet Ms. Excel kita

Langkah 2 :

Masuk kedalam visual basic Ms. Excel dengan menekan tombol pada keyboard secara bersamaan yaitu Alt +  F11

Langkah 3 :

Membuat user form dengan cara mengklik pada file Microsoft File Object >> Insert >> UserForm,

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Langkah 4 :

Jadi kita disini menggunakan 3 jenis toolbox yaitu Label, TextBox dan CommondButton dimana akan kita gunakan dalam membuat Form Login seperti ini :

Dimana nomor 1 adalah Label, nomor 2 TextBox, nomor 3 CommondButton yang terdiri dari tombol masuk dan tombol keluar dibuat dengan menggunakan ToolBox seperti gambar berikut :

Pada gambar User Login diatas harus sudah kita namai Caption, dan Name-nya karena sangat penting dalam penulisan script nantinya. Penamaanya menggunakan bantuan fasilitas properties seperti gambar di bawah ini. Adapun rincian partnya yaitu

• Label = ditulis Caption, dan Name-nya dengan "Password"
• TextBox = ditulis Caption, dan Name-nya dengan "Password"
• CommondButton1 = ditulis Caption, dan Name-nya dengan "MASUK"
• CommondButton2 = ditulis Caption, dan Name-nya dengan "KELUAR"

Setelah gambar FormLogin telah kita buat lalu langkah selanjutnya adalah kita membuat sciptnya, untuk menampilkan lembar penulisanya scriptnya dengan cara klik kanan commondButton "MASUK", lalu klik View Code.

 Sehingga muncul kotak dialog seperti ini :

Selanjutnya masukan script dibawah ini,

Private Sub Masuk_Click()                                                              
If Password = "" Then                                                                  
MsgBox "Maaf, Password Harus Diisi !!", vbCritical, "Sistem Aplikasi"                   
Me.Password.SetFocus                                                                    
Exit Sub: End If                                                                        
If Password = "cinta" Then                                                            
Sheets("sheet2").Select: Range("A1").Select                                             
Application.Visible = True
Unload Me
Else                                                                                    
MsgBox "Maaf, Password Yang Anda Masukkan Salah !!", vbExclamation, "Sistem Aplikasi"   
Password = ""                                                                           
Me.Password.SetFocus                                                                    
Exit Sub: End If
End Sub
Private Sub Keluar_Click()                                                      
Unload Me                                                                              
Application.Visible = False                                                             
Application.Quit                                                                        
End Sub

Langkah 5 :

Memasukan script yang berfungsi agar hanya ada tampilan userform aja yang terlihat saat orang lain gagal membuka lembar kerja ms. excel kita. Dengan cara klik kanan ThisWorkbook >> klik View Code

 

Lalu masukkan script dibawah ini :

Sub workbook_open()
Application.Visible = False
UserForm1.Show
End Sub

Lankah 6 :

Silahkan simpan hasil latihan kita dengan cara klik menu file >> save as >> save as type >> Excell Macro_Enabled Worksheet >> save

lalu close kan lembar latihan kita tadi, lalu coba dibuka lagi!!, jika berhasil maka akan menampilkan UserForm Form Login yang kita buat tadi. Jika gagal silahkan download contohnya di sini. Dengan Passwordnya : "cinta"

Selamat mencoba...