Salah satu dari banyak resep bagi saya dalam mempelajari Vba Excel secara otodidak adalah mencoba membuat file percobaan dengan gaya dan model saya sendiri dengan berpedoman pada file yang saya dapatkan dari internet. Memahami alur kerja kode dan selanjutnya mempublikasikan caranya di blog ini.
Tanpa mencoba membuat file dengan gaya dan model sendiri serta tanpa mencontohkan dan memodifikasi kode agar cocok untuk file yang kita buat, kita hanya bisa mimpi saja. Kalau kata orang "Nafsu Kuat, Tenaga Kurang, Jadinya LOYO". Ingin bisa Vba Excel ? Ya banyak-banyaklah membuat file dengan berpedoman pada karya orang lain. Jangan lupa modifikasi sedikit ajha, agar tidak terlihat menjiplak 100%. Sekilas resep otodidak.
Back to post. Posting ini Cara Membuat Form Login Dengan Hak Akses Berbeda. Hak akses diberikan berdasarkan level masing-masing. Biasanya pada aplikasi Kasir di swalayan terdapat 2 hak akses, yang pertama hak akses Admin biasanya digunakan oleh manager. Hak akses admin dapat memantau seluruh isi dari aplikasi.
Kedua hak akses kasir atau user, yang hanya dapat mengakses bagian-bagian tertentu saja dari aplikasi. Posting ini hanya menampilkan dasar dalam memberikan hak akses secara Vba excel. Selanjutnya anda dapat mengembangkan sendiri sesuai dengan selera.
Langkah - langkah Membuat Form Login Dengan Hak Akses Berbeda
UserForm1 dengan BackColor = &H00F1CC94&, Captin = Form Login User, Lainnya Standar
Properties Label
Jika sudah menempatkan kode dengan benar, ujilah aplikasi anda dengan klik Run atau tombol F5. jika aplikasi berjalan sebagaimana diharapkan seperti gambar format gif diatas anda telah sukses membuat tombol Login dengan Hak Akses Berbeda.
Demikian posting Cara Membuat Form Login Dengan Hak Akses Berbeda ala otodidak. Semoga dapat dijadikan referensi yanng mencari informasi tentang cara membuat form login dengan hak akses berbeda.
Jika artikel ini dirasakan bermanfaat dan membantu pekerjaan anda dalam membuat aplikasi mohon dapat dishare ke media sosial agar teman-teman yang memiliki hobi yang sama dapat mempelajarinya juga.
Jika ada pertanyaan, saran serta kritikan mohon dapat disampaikan pada kolom komentar yang tersedia di bawah artikel ini dengan bijaksana.
Dapatkan berbagai macam contoh file penerapan kode vba serta aplikasi vba excel tanpa proteksi yang dapat dipelajari secara mandiri dengan cara menghubungi admin melalui WhatsApp atau Telegram dengan nomor 0811-6822-023
Tanpa mencoba membuat file dengan gaya dan model sendiri serta tanpa mencontohkan dan memodifikasi kode agar cocok untuk file yang kita buat, kita hanya bisa mimpi saja. Kalau kata orang "Nafsu Kuat, Tenaga Kurang, Jadinya LOYO". Ingin bisa Vba Excel ? Ya banyak-banyaklah membuat file dengan berpedoman pada karya orang lain. Jangan lupa modifikasi sedikit ajha, agar tidak terlihat menjiplak 100%. Sekilas resep otodidak.
Cara Membuat Form Login Dengan Hak Akses Berbeda |
Kedua hak akses kasir atau user, yang hanya dapat mengakses bagian-bagian tertentu saja dari aplikasi. Posting ini hanya menampilkan dasar dalam memberikan hak akses secara Vba excel. Selanjutnya anda dapat mengembangkan sendiri sesuai dengan selera.
Langkah - langkah Membuat Form Login Dengan Hak Akses Berbeda
- Buka Excel, rename Sheet1 menjadi "Data User" Buatlah data user seperti terlihat pada gambar diatas. Header terdiri dari User, Password dan Level. simpan file dalam format macro (xlsm).
- Selanjutnya kita akan merancang UserForm yang akan kita jadikan sebagai Form Login dengan cara klik tab Developer pilih Visual Basic. Pada jendela Visual Basic masukkan sebuah UserForm dan control lainnya dan sesuaikan letakknya persis seperti yang terlihat pada gambar format gif diatas. atur properties setiap control sesuai dengan properties berikut :
UserForm1 dengan BackColor = &H00F1CC94&, Captin = Form Login User, Lainnya Standar
Properties Label
Label1 dengan BackColor = &H8000000F&, BackStyle = 0 - fmBackStyleTransparent, Caption Masukkan Username Dan Password, ForeColor = &H00FFFFFF&, Lainnya Standar
Label2 dengan BackColor = &H8000000F&, BackStyle = 0 - fmBackStyleTransparent, Caption Username, ForeColor = &H00FFFFFF&, Lainnya Standar
Label3 dengan BackColor = &H8000000F&, BackStyle = 0 - fmBackStyleTransparent, Caption Password, ForeColor = &H00FFFFFF&, Lainnya Standar
Label4 dengan (Name) = LbMasuk, BackColor = &H00808000&, BackStyle = 0 - fmBackStyleOpaque, BorderColor = &H000000FF&, BorderStyle = 1 - fmBorderStyleSingle, Caption Masuk, ForeColor = &H00FFFFFF&, Lainnya Standar
Label5 dengan (Name) = LbMasuk, BackColor = &H00808000&, BackStyle = 0 - fmBackStyleOpaque, BorderColor = &H000000FF&, BorderStyle = 1 - fmBorderStyleSingle, Caption Batal, ForeColor = &H00FFFFFF&, Lainnya Standar
- Jika sudah mengatur properties selanjutnya kita akan menempatkan kode pada tombol Masuk. Tulislah kode berikut ini pada tombol masuk dengan cara klik kanan pada tombol masuk, pilih View Code, pada jendela kode dengan event Click tulislah kode berikut ini.
Private Sub LbMasuk_Click()
Set WsUserName = Sheets("Data User")
Set RgUserPas = WsUserName.Range("A3:A20")
Set c = RgUserPas.Find(TxtUsername.Value, LookIn:=xlValues, MatchCase:=False)
Password = c.Offset(0, 1).Value
Level = c.Offset(0, 2).Value
If TxtUsername.Value = "" Then
MsgBox " Masukkan UserName", vbCritical, "User Login"
Exit Sub
End If
If TxtPassword.Value = "" Then
MsgBox "Masukkan Password", vbCritical, "User Login"
Exit Sub
End If
If TxtPassword <> Password Then
MsgBox "Username atau password yang anda masukan salah", vbCritical, "User Login"
Exit Sub
Else
MsgBox "Anda berhasil log in",vbInformation, "User Login"
If Level = "Admin" Then
Sheets("Data User").Visible = xlSheetVisible
Sheets("Sheet2").Visible = xlSheetVisible
Sheets("Sheet3").Visible = xlSheetVisible
ElseIf Level = "User" Then
Sheets("Data User").Visible = xlSheetVeryHidden
Sheets("Sheet2").Visible = xlSheetVisible
Sheets("Sheet3").Visible = xlSheetVisible
End If
Unload Me
End If
End Sub
Set WsUserName = Sheets("Data User")
Set RgUserPas = WsUserName.Range("A3:A20")
Set c = RgUserPas.Find(TxtUsername.Value, LookIn:=xlValues, MatchCase:=False)
Password = c.Offset(0, 1).Value
Level = c.Offset(0, 2).Value
If TxtUsername.Value = "" Then
MsgBox " Masukkan UserName", vbCritical, "User Login"
Exit Sub
End If
If TxtPassword.Value = "" Then
MsgBox "Masukkan Password", vbCritical, "User Login"
Exit Sub
End If
If TxtPassword <> Password Then
MsgBox "Username atau password yang anda masukan salah", vbCritical, "User Login"
Exit Sub
Else
MsgBox "Anda berhasil log in",vbInformation, "User Login"
If Level = "Admin" Then
Sheets("Data User").Visible = xlSheetVisible
Sheets("Sheet2").Visible = xlSheetVisible
Sheets("Sheet3").Visible = xlSheetVisible
ElseIf Level = "User" Then
Sheets("Data User").Visible = xlSheetVeryHidden
Sheets("Sheet2").Visible = xlSheetVisible
Sheets("Sheet3").Visible = xlSheetVisible
End If
Unload Me
End If
End Sub
- Klik kanan pada tombol Batal, pilih View Code dan tulislah kode berikut ini yang akan memberikan perintah menutup WorkBook jika tombol Batal di klik.
Private Sub LbBatal_Click()
ThisWorkbook.Close
End Sub
ThisWorkbook.Close
End Sub
Jika sudah menempatkan kode dengan benar, ujilah aplikasi anda dengan klik Run atau tombol F5. jika aplikasi berjalan sebagaimana diharapkan seperti gambar format gif diatas anda telah sukses membuat tombol Login dengan Hak Akses Berbeda.
Demikian posting Cara Membuat Form Login Dengan Hak Akses Berbeda ala otodidak. Semoga dapat dijadikan referensi yanng mencari informasi tentang cara membuat form login dengan hak akses berbeda.
Jika artikel ini dirasakan bermanfaat dan membantu pekerjaan anda dalam membuat aplikasi mohon dapat dishare ke media sosial agar teman-teman yang memiliki hobi yang sama dapat mempelajarinya juga.
Jika ada pertanyaan, saran serta kritikan mohon dapat disampaikan pada kolom komentar yang tersedia di bawah artikel ini dengan bijaksana.
Dapatkan berbagai macam contoh file penerapan kode vba serta aplikasi vba excel tanpa proteksi yang dapat dipelajari secara mandiri dengan cara menghubungi admin melalui WhatsApp atau Telegram dengan nomor 0811-6822-023