Lze zamknout textové pole?* Vyřešeno

[crgo77]

Zdravím všechny,je možné,že bude moje otázka a prosba neuskutečnitelná,ale chtěl jsem se zeptat,zda lze uzamknout textové pole.
Má otázka by zněla takhle - pokud po načtení textového pole bude textové pole prázdné - šlo by do tohoto pole zapisovat,pokud by po načtení textového pole byl obsažen text - do textového pole by nešlo zapisovat a ani text upravovat.
Je možné,že to není možné,ale jen by mě to zajímalo.
Předem děkuji za odpovědi a rady respektive kód pokud by to bylo možné.

//úprava názvu

//mmmartin

[Reklama]

[crgo77]

Všiml jsem si,že byl opraven název tématu,Omlouvám se,že jsem téma nepojmenoval jak se má.Děkuji za opravení.

[cmuch]

Ano lze to,
v časti kódu kde načítáš text do textboxu přidej

Kód: Vybrat vše

If TextBox1.Text <> "" Then TextBox1.Locked = True

To ten TextBox zamkne proti upravám.

[crgo77]

Zdravím všechny,narazil jsem na netu na kód,který jsem potřeboval a funguje to perfektně,samozřejmě je nutné si jej poupravit podle vlastních potřeb.
Přikládám nalezený kód.

Kód: Vybrat vše

With UserForm1.TextBox1
If IsEmpty(Range("A" & ActiveCell.Row)) Then
.Locked = False
Else:
.Text = Range("A" & ActiveCell.Row).Value
.Locked = True
End If
End With


Tím by bylo toto téma vyřešeno a uzavírám ho.