Cara Membuat Menu Log in Pada Microsoft Excel

Cara Membuat Menu Log in Pada Microsoft Excel




Cara Membuat Menu Log in Pada Microsoft Excel - Kali ini #jatikom akan menshare cara mudah membuat menu log in premium pada microsoft visual basic atau macro kepada pemirsa #jatikom, menu log in ini akan melindungi data anda dari orang lain yang anda tidak inginkan membuka nya , dengan log in premium ini anda bisa membatasi user tertentu untuk mengakses sheets atau kontrol tombol tertentu. Berikut langkah langkah cara membuat menu log in pada microsoft excel

Properti pada sheet1
1. Buatlah table seperti gambar diawah ini


2. masukan formula

"a. Range atau Kolom F3 " =VLOOKUP(E3;User;2;FALSE) "

"b. Range atau kolom G3 " =VLOOKUP(E3;User;3;FALSE) "

Masukan tanpa tanda petik " loh ya
3. Buatlah define name dengan nama "User" formula "

"=OFFSET(Sheet1!$A$2;1;0;COUNTA(Sheet1!$A:$A)-2;3) "

4. Buatlah define name dengan nama "UserName" formula "

"=OFFSET(Sheet1!$A$2;1;0;COUNTA(Sheet1!$A:$A)-2;1) "

Lihat gambar biar agak jelas


Setelah anda selesai membuat nama range langkah selanjutnya adalah memasukan tombol atau kontrol command button, lihat tab menu Developer >Insert>Command button, biarkan name'nya defauld alias Commandbutton1.Commandbutton2 dan yang terakhir Commandbutton3, perhatikan gambar dibawah ini


Membuat log in premium
Kemudian tekan Alt+F11 untuk masuk kejendela visual basic editor (VBE) dan ikuti petunjuk dibawah ini
1. Buat sebuah userform
2. Pada userform masukan kontrol Textbox 2 buah, dan Commandbutton 2 buah
3. Textbox pertama beri nama " txtUser "
4. Textbox kedua berinama " txtPassword "
5. Commnadbutton pertama kasih nama " CmdLog in " dan yang kedua "cmdKeluar"
6. Setelah tertata rapih seperti pada gambar dibawah ini,

Masukan kode dibawah ini

Private Sub cmdLogin_Click()
Set wsSheet2 = Sheets("Sheet2")
Set wsSheet1 = Sheets("Sheet1")
If txtUser.Value = "" Then
MsgBox "Isi User terlebih dulu", _
vbOKOnly + vbInformation, "User Kosong"
txtUser.SetFocus
Exit Sub
ElseIf txtPassword.Value = "" Then
MsgBox "Isi Password terlebih dulu", _
vbOKOnly + vbInformation, "Password Kosong"
txtPassword.SetFocus
Exit Sub
End If
wsSheet1.Range("E3").Value = txtUser.Value
If wsSheet1.Range("F3").Text <> txtPassword.Value Then
LoginSalah = MsgBox("User atau Password salah" _
& vbCrLf & "Coba masuk lagi?", _
vbYesNo + vbInformation, "Error Masuk")
If LoginSalah = vbYes Then
txtUser.Value = ""
txtPassword.Value = ""
txtUser.SetFocus
ElseIf LoginSalah = vbNo Then
Unload Me
End If
Else
Unload Me
MsgBox "User dan Password benar", _
vbOKOnly + vbInformation, "Login Berhasil"
If wsSheet1.Range("G3").Value = "Admin" Then
Sheets("Sheet1").Visible = xlSheetVisible
wsSheet2.CommandButton1.Enabled = True
wsSheet2.CommandButton2.Enabled = True
wsSheet2.CommandButton3.Enabled = True
ElseIf wsSheet1.Range("G3").Value = "Supervisor" Then
Sheets("Sheet1").Visible = xlSheetVeryHidden
wsSheet2.CommandButton1.Enabled = False
wsSheet2.CommandButton2.Enabled = True
wsSheet2.CommandButton3.Enabled = True
ElseIf wsSheet1.Range("G3").Value = "Kasir" Then
Sheets("Sheet1").Visible = xlSheetVeryHidden
wsSheet2.CommandButton1.Enabled = False
wsSheet2.CommandButton2.Enabled = False
wsSheet2.CommandButton3.Enabled = True
End If
End If
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub

simpan dengan excel enable macro
Jika anda pemula silahkan buka lagi postingan tentang cara memulai macro dan cara memanggil userform
Advertisements
Back To Top