MS Excel

Téma: Lze uzamknout textové pole?

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

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

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

AL(29.6.2014 15:41)#020233

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

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)

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.