Kullanıcı adına göre nesne pasiflemek

[prof198328]

Kullanıcı giriş formu olarak tasarladığı form var
Bu giriş formunda manuel olarak elle yazılan kullanıcı giriş bilgilerini içeren textbox var . Giriş yaptığım zaman 10 adet combo box olduğu bir user forma gidiyor kullanıcı adları ile giriş yaptığım zaman ismi geçen combo boxın çalışması diğerlerinin pasif olmasını istiyorum yardımcı olabilir misiniz

 

[Korhan Ayhan]

Merhaba,

Kullandığınız konu başlıklarında Formül-Makro gibi genel ifadeler kullanmayınız. Daha açıklayıcı ifadeler kullanmanız cevap almanızı kolaylaştıracaktır.

Bu tarz başlıklar genellikle Forum Kurallarına Uymayan Başlıklar bölümüne taşınmaktadır.

Bu seferlik ben düzeltiyorum.

Sorunuzun cevabına gelince bu işlem için Select-Case sorgusu kullanabilirsiniz.

Örnek;

Ben bilgisayarda tanımlı kullanıcı adını kullandım. Siz kendinize uyarlarsınız.

Option Explicit

Sub Sorgu()
    Select Case Environ("ComputerName")
        Case "Kullanıcı_1"
            UserForm2.ComboBox1.Enabled = True
            UserForm2.ComboBox2.Enabled = False
            UserForm2.ComboBox3.Enabled = False
            UserForm2.ComboBox4.Enabled = False
            UserForm2.ComboBox5.Enabled = False
            UserForm2.ComboBox6.Enabled = False
            UserForm2.ComboBox7.Enabled = False
            UserForm2.ComboBox8.Enabled = False
            UserForm2.ComboBox9.Enabled = False
            UserForm2.ComboBox10.Enabled = False
            UserForm2.Show
        Case "Kullanıcı_2"
            UserForm2.ComboBox1.Enabled = False
            UserForm2.ComboBox2.Enabled = True
            UserForm2.ComboBox3.Enabled = False
            UserForm2.ComboBox4.Enabled = False
            UserForm2.ComboBox5.Enabled = False
            UserForm2.ComboBox6.Enabled = False
            UserForm2.ComboBox7.Enabled = False
            UserForm2.ComboBox8.Enabled = False
            UserForm2.ComboBox9.Enabled = False
            UserForm2.ComboBox10.Enabled = False
            UserForm2.Show
    End Select
End Sub

 

[prof198328]

Korhan hocam ilginiz için teşekkürler
Vermiş olduğunuz kodları girdim ama buton cevap vermiyor
İnvalid inside procedure hatası veriyor option explicit mavi renkli yanıyor

 

[Korhan Ayhan]

Merhaba,

Ben size yöntemi önerdim. Uyarlama yapmanız gerektiğini de belirttim.

 

[prof198328]

Hocam sizin verdiğiniz örneği kendi göre uyarladım ama olmadı

Option explicit
sun sorgu()

Select case environ("txtkullaniciadi")
Case "kesim"
frmbölüm.cbkesim.enabled.true
frmbölüm.cbbüküm.rnabled.false
frmbölüm.show
End select
End sun

Bu şekilde nerede hata yapmış olabilirim

 

[Korhan Ayhan]

Environ komutu ve parantez içindeki parametre bilgisayardaki tanımlı kullanıcı adını size verir. Ben onu örnek olarak verdim.

Siz kullanıcı adı için kullandığınız nesneyi o bölüme yazmalısınız.

Örnek olarak aşağıdaki gibi olabilir.

Selec Case TextBox1.Value