Code to unlock textbox....

ExcelNovice

Well-known Member
Joined
May 12, 2002
Messages
578
I'm working with a Userform with a few textrboxes on it. I used the Properties field to lock each textbox, however I want a code to unlock the text box when the value in cell B3 is equaled to 1.

Help please.....

Thanks.
 

Some videos you may like

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!

Tazguy37

MrExcel MVP
Joined
May 28, 2004
Messages
4,237
In the Workbook_open event, you can lock the textbox:
Code:
Public Sub Workbook_Open()
    UserForm1.TextBox1.Locked = True
    UserForm1.Show 0
End Sub

And in the sheet's _Change() event (you didn't specify which sheet):
Code:
Public Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, [b3]) Is Nothing Then Exit Sub
    If [b3].Value = 1 Then
        UserForm1.TextBox1.Locked = False
    Else
        UserForm1.TextBox1.Locked = True
End Sub

How's that work for ya? Hope that helps!
 

Watch MrExcel Video

Forum statistics

Threads
1,118,330
Messages
5,571,570
Members
412,406
Latest member
DutchMonkey
Top