Kullanıcı Yetkilerine Göre Menü Tanımlama

@mhezer

Kabaca şöyle tarif edeyim, siz kendiniz detaylandırırsınız.

1) Boş veya uygun bir MODULE içine en üstte olacak şekilde Public yetki As Byte şeklinde bir satır ekleyin.
2) LoginForm kodlarının sonundaki LoginForm_Fail.Show satırını
If yetki = Empty Then LoginForm_Fail.Show
olarak değiştirin.
Bu satırın üstüne de UserForm1.Show 0 şeklinde bir satır ekleyin.
3) LoginForm kodlarında en sondaki End if satırının üstünde bulunan Exit Sub satırını silin veya SOL başına TEK TIRNAK işareti ekleyin.
3) LoginForm kodlarında ilgili yerlere ROL NUMARASI anlamında, aşağıdaki gibi
en fazla yetkiliden en az yetkiliye doğru 1'den başlayarak birer SAYI verin.


4) UserForm1'e ait Initalize kodlarını aşağıdaki gibi düzenleyin.
Mantık şöyle:
-- önce userform açılırken Multipage1.Page2 üzerindeki tüm nesneleri gizle,
-- ardından yetki SAYIsına göre görünür olması gereken nesne isimlerini (baş harfleri hariç) Array(.....) olarak tanımlayın.
Koddaki tum_nesneler = Array("PR", "CL", "PV", "CO", "RE", "EM", "US", "CF", "CE") kısmı Page2'de genişleyen menülerin ilk harfler hariç isimleridir.
nesne = Array("PR", "CL", "PV", "CO", "RE", "EM", "US", "CF", "CE") satırları ise, belirleyeceğiniz yetki durumuna göre o yetki sahibi kullanıcı için görünür olacak nesne isimleridir (yine baş harfleri hariç) .


Böylece Userform1 açıldığında sadece YETKİli olunan menüler görünür hale gelecek, diğerleri görünmeyecektir.
Görünüm açısından en çok kullanıcı türü tarafından görüntülenecek nesne en üstte, en az yetki türü tarafından görüntülenecek nesne en altta olacak şekilde VBA ekranında konumlandırmaları ayarlamak daha şık bir görünüm sağlayacaktır.