< návrat zpět

MS Excel

Téma: Lze uzamknout textové pole? rss

Zaslal/a Novacek-Ivan 27.6.2014 22:56

Zdravím všechny,mám skromný dotaz.Mám v sešitu formulář,do kterého načítám zvolené buňky,ale řeším dylema,jak zabezpečit textové pole.Jde o to,že pokud by po načtení bylo pole prázdné,šlo by do něj zapisovat,pokud by po načtení obsahoval text,zůstane zamčené proti úpravě načteného textu.
Pokud by to bylo možné,mohl by mi někdo vypsat kód?.Předem všem děkuji za rady.

Zaslat odpověď >
Pavlus(28.6.2014 13:02)#020225
avatar
Bez přílohy nemá cenu nic tvořit...
Je to ale prosté, pracuješ pouze s parametrem "Locked".
P.

Ukázka:
UserForm1.TextBox1.Locked = True
UserForm1.TextBox1.Locked = Falsecitovat
Novacek-Ivan(29.6.2014 12:48)#020232
avatar
Zdravím,snad odpovídám správným způsobem.Jde a to,že do textového pole načítám níže uvedeným kódem. Kód načítá mnou vybraný řádek a v závislosti na tom i hodnotu která je zadaná.Je možné,že pole je prázdné.
A to je právě problém,který řeším - pokud je pole po načtení prázdné,aby do něj šlo zapisovat a pokud po načtení obsahuje text,aby bylo uzamčeno proti přepisu.

TextBox1.Text = Range("A" & ActiveCell.Row).Valuecitovat
icon AL(29.6.2014 15:41)#020233
avatar
Ja myslím, že Pavlus rozumie a odpovedal pmn tiež zrozumiteľne. Tak ešte raz:With UserForm1.TextBox1
If IsEmpty(Range("A" & ActiveCell.Row)) Then
.Locked = False
Else:
.Text = Range("A" & ActiveCell.Row).Value
.Locked = True
End If
End Withcitovat
Novacek-Ivan(30.6.2014 21:52)#020269
avatar
Díky za radu,funguje to perfektně a přesně podle mých potřeb.Ještě jednou díkycitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje