Login Kullanıcı Girişi Yetkilendirme hkk,

[TiOr]

Herkese Günaydın, Hayırlı Sabahlar, Hayırlı günler,
Projemde kullandığım bir login girişim var bu logine istinaden kullanıcı bazında CommanButton lara yetkilendirme yapmak istiyorum.

Benzer bir çalışmayı @Muzaffer Ali Hocam yapmış fakat bir türlü dosyama uyduramadım. (https://www.excel.web.tr/threads/userform-login-ekrani-kullanici-yetkilendirme.173687/post-947458)

Yardımcı olabilir misiniz?
Dosyamı ekte paylaşıyorum;
Dosyaya istinaden kullanıcı giriş bilgileri;
Kullanıcı ve şifre; ORHAN/1234
Kullanıcı ve şifre; CELAL/4321
Login girişi sonrası userform1 açılmaktadır. X Aça tıklayarak excel açılmaktadır. Proje kısmında şifre bulunmamaktadır. X aç ve X kapat harici diğer butonlar pasif duruma getirilerek orjinal projenin bir kısmı kullanılarak örnek dosya paylaşımı yapılmıştır.

Kıymetli desteklerinizi talep ederim.

 

[AdemCan]

@Muzaffer Ali Beyin yetki kontrolü için oluşturduğu Function Yetki(Buton As String) As Boolean isimli fonksiyonu dosyanıza almamışınız.

 

[TiOr]

Merhaba @AdemCan Bey,
Evet almadım. Uyguladım ama farklı bir projenin kodları olmasından ötürü dosyamda verim alamadım yani kullanamadım. Ve ham hali ile paylaştım.
Projenin tamamı olmaksızın hem anlayabilmek adına hem de proje kapsamlı olmaksızın herkesin dosyasına uydurabileceğini düşünerek yeniden bir paylaşım yapılabilirse daha sağlıklı olacaktır diye düşündüm. Bu şekilde bir paylaşımı herkes dosyasına uydurabilir diye düşünüyorum. Diğer türlü proje bazlı bir sürü kod var ister istemez bir noktada takılıyor kalıyoruz.
Kıymetli desteklerinizi talep eder, iyi günler dilerim.

 

[AdemCan]

Merhaba, dosyanızda küçük bir değişiklik yaptım.
* D sütunundan itibaren buton isimlerini yazmışınız, bu isimleri numara olarak değiştirip sıraladım.
* Örnek olarak da DENEME isimli bir kullanıcı ekledim. Şifresi 1234
* Kullanıcıların buton yetkileri için; Sıfır ( 0 ) Yetkisiz, Bir ( 1 ) Yetkili anlamındadır.
* Asıl dosyanız ile bu dosya arasında fark yoksa sorunsuz olarak uyarlama yapabilirsiniz.

 

[TiOr]

@AdemCan Hocam,
Eline, emeğine, beynine sağlık.
Orjinal dosyamda işlemi gerçekleştirdim.
İşlem tamamdır.
Desteğin için çok ama çok teşekkür ederim. Sağol, varol..
Allah'a emanet olasınız...

 

[Muzaffer Ali]

Merhaba.

1- Public Aktif_Kullanici As String Module1 deklarasyon kısmına(en üst satıra) eklenmeli.
2- Login formundaki 'Enter' butonunun kodlarına Aktif_Kullanici = TextBox1.Value satırı eklenmeli.
3- Aşağıdaki kod Module1'e eklenmeli.

Function Yetki(Buton As String) As Boolean
    Dim bak_Kullanici As Integer
    Dim Bak_Yetki As Integer
    With Sheets("USERS")
        For bak_Kullanici = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If .Cells(bak_Kullanici, 1) = Aktif_Kullanici Then
                For Bak_Yetki = 3 To .Cells(1, .Columns.Count).End(xlToLeft).Column
               
                    If .Cells(1, Bak_Yetki) = Buton Then
                        If .Cells(bak_Kullanici, Bak_Yetki) = 1 Then
                            Yetki = True
                        ElseIf .Cells(bak_Kullanici, Bak_Yetki) = 0 Then
                            Yetki = False
                            MsgBox "Bu bölüme girmek için yetkiniz yok."
                        End If
                        Exit For
                    End If
                Next
                Exit For
            End If
        Next
    End With
End Function

4-Users sayfasının mantığını biliyorsunuz sanırım.

Bunları yaptığınızda sorunsuz çalışacaktır.

 

[TiOr]

@Muzaffer Ali Hocam Merhaba,
Bilgi için teşekkür ederim. Fakat @AdemCan hocamın paylaşımı yeterli oldu. Buton pasife olayı yeterlidir.
Şu an sorunsuz olarak denemeleri gerçekleştirdim. Bir problem gözükmüyor.
Her iki hocamıza da ilgi ve destekleri için çok teşekkür ederim.
Allah razı olsun, vakit ayırıp yardımcı oluyor ve yardımlarınızı esirgemiyorsunuz.
Selamlar, saygılar...

 

[AdemCan]

Merhaba rica ederim.
Amin cümlemizden razı olsun inşallah.