MEMBUAT PASSWORD LOGIN VBA

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

Sumber

SHARE THIS