checkboxla yetki

[limanC34]

Selam Arkadaşlar
Yetkilendirmeden kişilere checkbox la yetki verip girişten sadece yetkili oldukları İŞ1,İŞ2.İŞ3 isimli userformlar nasıl açtırılabilir?
Teşekkürler.

 

[udentr2002]

her kişiye sadece 1 yetkimi verilecek vede giriş 1 işaretli ise İŞ1 formumu açılacak biraz daha açıklarsan daha net cevaplar verilebilir? ben yinede anladığım kadarı ile olanı göndereyim sana fikir verebilir.

 

[limanC34]

Sayın udentr2002
kişiye tüm yetkiler verilebilir ama örneğin giriş 1 tıklanınca ''yetkiniz yok'' diyebilecek bir sistem aslında istediğim.Yani aslında kafamda çözemediğim bir dosyayı 3 kişiye nasıl yetki paylaştırma yaptırabilirim.Birde 3 farklı pc kasasından nasıl olur?Yada olabilirmi?

 

[udentr2002]

istediğin böyle bir şeymi o ama giriş 2 giriş 3 tuşalrı neye yarayacak birde exceli paylaştırabilrsin ama çok sağlıklı bir yol olmadığını biliyorum

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil olabilir.

Private Sub CommandButton1_Click()
Dim SIF As String
SIF = InputBox("Şifrenizi giriniz.")
If SIF = "1" Then
Unload Me
İŞ1.Show
Else
MsgBox "Yanlış şifre girdiniz.", vbInformation
End If
End Sub

 

[limanC34]

Sayın udentr2002
Pek anlamam ama excel paylaşımı hakkında nedense hep bu yorum geliyor.Ben akıllı olup paylaşım hakkında artık bir girişim yapmayacağım.Değerli çözüm ve yorumunuz için size diğer üstatlara teşekkür ederim.
İyi akşamlar.