Soru Kullanıcı Adına Göre Userformdaki Butonların Aktif Pasif Olması

[TURKOLOG]

Herkese Merhaba
Giriş Userformu açıldığında
yer = Worksheets("Kodlar") Sayfasında M1:M aralığında olan kullanıcı adıyla excel açılırsa Giriş userformdaki tüm butonlar aktif olsun

Eğer, yer = Worksheets("Kodlar") Sayfasında M1:M aralığında olmayan bir kullanıcı adıyla excel açılmışsa Giriş userformundaki
ComboButon1,2,3,4,5 , ComboButon27, CbKaydet, CbDuzenle, CbSil, CbSorgu, ComboButon35, ComboButon19, ComboButon41, aktif olsun diğer ComboButonların tamamı pasif olsun
Yardım edebilecek olan var mı

 

[TURKOLOG]

Excel kitabına şifre ile giris yaptıktan sonra giriş yapılan kullanıcı adı
Yetki sayfası A1 hücresine yazıyor.
Yetki sayfası A1 hücresinde yazan ismin Worksheets("Kodlar") Sayfasında M1:M aralığında olan kullanıcı adıyla eşleşme durumuna gore kod çalışacak

 

[TURKOLOG]

Kodları ancak buraya kadar yazabildim . Yardım edebilecek olan var mı

Private Sub UserForm_Initialize()

 

On Error Resume Next

Dim yer As Long

yer = Worksheets("yetki").Cells(1, "A").Value

 

 

If yer = Worksheets("KONTROL").Range("P2:P").Value Then

For i = 1 To Me.Controls.Count

            If Left(Me.Controls(i).Name, 13) = "CommandButton" Or Left(Me.Controls(i).Name, 2) = "MY" Then

                Me.Controls(i).Enabled = True

Else

 

CommandButton5.Enabled = True

CommandButton6.Enabled = True

CommandButton19.Enabled = True

CommandButton13.Enabled = True

CommandButton24.Enabled = True

 

  End Sub