MEMBUAT PASSWORD LOGIN VBA

Assalamualaikum Wr Wb

Membuat password Login biasanya untuk membatasi user pengguna sebuah program atau file
untuk kali ini diberi contoh yang sangat sederhana, karena saya juga seorang pemula yang mencoba membuat dari hasil googling dan belajar :)

Artikel ini cuma membahas untuk membatasi login user secara umum saja satu arah
kadang kita menemui login berdasarkan User dengan password berbeda-beda pula

Sampel form login

untuk membuat itu kita perlu
Userform, Textbox, dan Commandbutton

Userform : untuk menampung tampilan awal
Textbox   : untuk penulisan Username/password
CommandButton : untuk eksekusi

Tuliskan script berikut pada userform (double click userform)

'===Untuk Mengaktifkan posisi kursor awal di kolom user====
Private Sub UserForm_activate()
Me.TextBox1.Value = ""
Me.TextBox1.SetFocus
End Sub

'===Untuk tampilan tulisan hanya * saja di kolom input password==
Private Sub UserForm_Initialize()
Me.TextBox2.PasswordChar = "*"
End Sub

'===untuk mencegah user menutup jendela form===
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Silahkan masukkan Password", , " maaf...."
  End If
End Sub

'===Untuk eksekusi===

Private Sub CommandButton1_Click()

If TextBox2.Value <> "KJ99" Then

    MsgBox "Password salah, Bye...... ^_^", , "Maaf"

    ThisWorkbook.Save

    ThisWorkbook.Close

End If

Unload Me

Thisworkbook.application.visible=true

Sheets("Sheet1").Activate

End Sub

Pada script Sheets("Sheet1").Activate bisa kita ganti dengan tujuan lain, misal:
Userform2.Show 'jika kita punya form selanjutnya
sheets("sheet1").activate 'jika ingin langsung ke sheet1


Nah pada Thisworkbook (sisi kiri jendela VBA) sama kita double click kemudian masukkan kode berikut :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("HOME").Activate 'Silahkan Ganti dengan sheet sesuai yang anda miliki misal Sheet1
ThisWorkbook.Save
End Sub

'Untuk menyembunyikan Excel dan menampilkan Form login secara tunggal
Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False 
FORMLOGIN.Show
End Sub

Semoga artikel ini bermanfaat, terutama bagi saya yang sering lupa jadi nulis disini biar gampang baca lagi kalau lupa :v

Contoh File Form Login disini, Password: KJ99

Salam KJ

Posted in: belajar dasar-dasar excel,belajar excel,belajar excel dasar,belajar excel dengan mudah,cara cepat belajar excel,hal terpenting di excel,mahir menggunakan excel