Modül ile Buton Arasında Bağlantı Sorunu

[efeksk]

Arkadaşlar..

Modul1 isimli bir modül ve 4 adet userform içerisindeki userform1 de yer alan bir butonum ve 50 adet textbox var...

ben Userform1 içindeki butonun kod olayına ;

TextBox1.Locked=False

yazınca sorunsuz çalışıyor ama 50 adet textbox için bunu modül kullanarak yapmak istiyorum. Modüle kodu yazdıktan sonra form üzerindeki butona nasıl bağlarım ?

 

[peleryn]

Merhaba ;

Butona Call Modul1 yazın modülü çalıştırır.

Kolay gelsin.Modüle yazacağınız kodlarda nesneleri adresleriyle yazmayı unutmayın.

UserForm1.CheckBox1.. gibi

 

[peleryn]

Tekrar Merhaba;

Eğer bahsettiğiniz bu 50 textbox userform üzerindeki textbox nesnelerinin hepsiyse aşağıdaki döngüyü kodlarınıza ekleyerek tüm textboxların locked özelliklerini false yapabilirsiniz.Böylece her bir textbox için uzun uzun kod yazmamış olursunuz.

Dim Nesne As Control
For Each Nesne In UserForm1.Controls
If TypeName(Nesne) = "TextBox" Then
Nesne.Locked = False
End If
Next