Thursday, July 6, 2017

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.

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. 

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

9 komentar

Debug pas isi user atau password yg gak cocok gan

Sudah terselesaikan gan...dengan bantuan beberapa artikel dari senbakusen....
Trus gan kalau mau menampilkan nama user yang login di userform menu gimana gan?

Sudah terselesaikan gan....terimakasih gan dengan adanya senbakusen saya terbantu banyak.

Mantap....!! Untuk menampilkan User yang sedang login di userform berikutnya kurang lebih begini format ala Otodidak
Setelah Klik login.. maka perintah dalam tombol login mengandung code berikut ini
UserForm.LabelTampil.Caption = "As Administrator"
Kurang lebih begitu..

Gan....kalau mau convert excel ke exe pake apa gan....udah download compexe.exe....gak tau cara pakainya

Pengalaman saya dalam mengkonver file format excel ke Exe menggunakan Software LockXls.

Thank you gan....senbakusen is the best

Terimakaish kembali Hendi Elisha Patra yang sudah beberapa x berkomentar di blog ala otodidak ini...

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon