Berlangganan

Membuat Menu Log in Pada Excel

Posted by


Buka microsoft office anda, maksudnya microsoft excel
Sebelum masuk ke jendela VBE, lakukan pengaturan pada worksheet, buatlah tabel dengan kolom User Name dan Password, lihat contoh tabel dibawah ini

-ABC
1USERPASSWORD
2AdminAdmin
3

Setelah anda selesai membuat tabel sebagaimana tabel diatas, sekarang masuk ke jendela Visual basic Editor ( VBE )
Insert Userform
Pada Userform Seret kontrol Label, textbox dan commandbutton
Lihat contoh design userform untuk membuat menu log in dibawah ini


Pada gambar diatas ada tombol OK, BATAL, dan KELUAR ( dengan icon )
Kemudian masukan semua kode macro dibawah ini kedalam userform

Private Sub lblbatal_Click()
txtuser = ""
txtpassword = ""
End Sub

Private Sub lblkeluar_Click()
ThisWorkbook.Close
End Sub

Private Sub lblok_Click()
UserName = Sheets("Sheet1").Range("A3").Value
Password = Sheets("Sheet1").Range("B3").Value
If txtuser <> UserName Then
Exit Sub
ElseIf txtpassword <> Password Then
Exit Sub
End If
Unload Me
Call lblbatal_Click
End Sub
Tekan F5 pada keybord komputer anda, lalu silahkan anda masukan user name dan password "Admin" , lalu klik OK


FOLLOW and JOIN to Get Update!

Social Media Widget SM Widgets




Demo Blog NJW V2 Updated at: 10:35:00

zalora

Membuat Menu Log in Pada Excel


Buka microsoft office anda, maksudnya microsoft excel
Sebelum masuk ke jendela VBE, lakukan pengaturan pada worksheet, buatlah tabel dengan kolom User Name dan Password, lihat contoh tabel dibawah ini

-ABC
1USERPASSWORD
2AdminAdmin
3

Setelah anda selesai membuat tabel sebagaimana tabel diatas, sekarang masuk ke jendela Visual basic Editor ( VBE )
Insert Userform
Pada Userform Seret kontrol Label, textbox dan commandbutton
Lihat contoh design userform untuk membuat menu log in dibawah ini


Pada gambar diatas ada tombol OK, BATAL, dan KELUAR ( dengan icon )
Kemudian masukan semua kode macro dibawah ini kedalam userform

Private Sub lblbatal_Click()
txtuser = ""
txtpassword = ""
End Sub

Private Sub lblkeluar_Click()
ThisWorkbook.Close
End Sub

Private Sub lblok_Click()
UserName = Sheets("Sheet1").Range("A3").Value
Password = Sheets("Sheet1").Range("B3").Value
If txtuser <> UserName Then
Exit Sub
ElseIf txtpassword <> Password Then
Exit Sub
End If
Unload Me
Call lblbatal_Click
End Sub
Tekan F5 pada keybord komputer anda, lalu silahkan anda masukan user name dan password "Admin" , lalu klik OK

Random News

Protek

About Me

MASUKKAN ALAMAT EMAIL ANDA :

Delivered by Pidie kreatif.blogspot.com