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
Lze zamknout textové pole?* Vyřešeno
Re: Lze zamknout textové pole?*
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í.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Lze zamknout textové pole?*
Ano lze to,
v časti kódu kde načítáš text do textboxu přidej
To ten TextBox zamkne proti upravám.
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.
Re: Lze zamknout textové pole?*
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.
Tím by bylo toto téma vyřešeno a uzavírám ho.
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.
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti