[حل شده] فعال کردن TextBox

[میثم مقدم نیا]

با عرض سلام و تبریک سال نو خدمت همه دوستان اکسل ایرانی عزیزم
امید وارم سال خوب و خوشی داشته باشید، به دور از هر بلا

یه سوال از اساتیید عزیزم داشتم
من تو فایل پیوست ، داخل یوزرفرم 5 تا تکس باکس دارم که بغییر از کد پرسنلی بقیه غیرفعال هستند
حال میخوام وقتی که در کد پرسنلی کد جدید را وارد کرد اون 4 تا تکس باکس دیگه فعال بشند که بتونم نفر جدید را به جدولم اضافه کنم
تو فایل پیوست با زدن کلید ویرایش تکس باکس ها فعال میشه ولی ....
ممنون میشم که راهنماییم کنید

[iranweld]

با سلام

کد ذیل را تست کنید

Private Sub TextBox01_Change()

Find = False

kk = Range("b" & Rows.Count).End(xlUp).Row + 1

        TextBox02.Text = ""
        TextBox03.Text = ""
        TextBox04.Text = ""
        TextBox05.Text = ""


For i = 2 To kk

If Len(TextBox01) >= 5 And Val(TextBox01) = Val(Left(Range("b" & i), Len(TextBox01))) Then


        TextBox02.Enabled = False
        TextBox03.Enabled = False
        TextBox04.Enabled = False
        TextBox05.Enabled = False

        TextBox02.Text = Range("c" & i).Value
        TextBox03.Text = Range("d" & i).Value
        TextBox04.Text = Range("e" & i).Value
        TextBox05.Text = Range("f" & i).Value

Find = True

        Exit For
        
     ElseIf Find = False And Len(TextBox01) >= 5 Then
     
TextBox02.Enabled = True
TextBox03.Enabled = True
TextBox04.Enabled = True
TextBox05.Enabled = True
     
        
        End If
        
        Next

End Sub