admin user ayrımı

[g_demir]

bir UserForm var frm_menu
bunun üzerinde Label1 var lbkullanici
birde CommandButton var cmdkullanici

ıbkullanici sayfa1 deki c1 hücresinden otomatik olarak alıyor
eger ıbkullanici admin se cmdkullanici gözüksün eger admin degilde user se
cmdkullanici gözükmesin bunun bir yolu varmı? tabi userler cogala bılır
tabi kullanıcıların ısmı farklıda ola bılir sadece adminde gözükecek
tabi olursa
şimdiden teşekkür ederim

 

[bedersu]

merhaba,
O kişinini admin olduğu nasıl anlaşılacak?Gridiği şifreden mi? Öyleyse Userform_initialize kısmına şu şekilde yazın:

If [C1] = adminin kullanıcı adı ve/veya adminin şifresi Then CommandButton1.Visible = True

 

[g_demir]

evet giriş yaptığında c1 kullanıcı adı yazılıyor

bu kodlada
lbkullanici.Caption = Worksheets("giris").Range("c1")
bir labele taşıyorum

giriş yaptıgında ana menu cıkacak karsısına bir suru buton olacak ama kullanıcı eklemesı ve silmesi için bir butondaha yaptım onu sadece admin gorecek user gırdıgınde o buton gizlenecek

sizin verdiginiz kod işe yaramadı
ilginiz için teşekkür ederim

 

[bedersu]

Merhaba,
aslında mantık aynı.Ben sadece ilk mesajda C1 hücresine baktırmıştım.Siz Label'a baktırmak istemişsiniz.Şu şekilde yapın:

Private Sub UserForm_Initialize()
lbkullanici.Caption = Worksheets("giris").Range("c1")
End Sub
 
Private Sub UserForm_Activate()
If lbkullanici.Caption = "Admin" Then cmdkullanici.Visible = False
End Sub

UserForm_Initialize olayına diğer kodlarınızı da yazabilirsiniz.

 

[g_demir]

yardımlarınız içi çok teşekkür ederim baya işime yaradı