Cara Membuat Form Login Dengan Hak Akses Berbeda

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.

Cara Membuat Form Login Dengan Hak Akses Berbeda

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

• 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 :

Properties UserForm
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

• 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

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

Berbagi :