• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse