VBA textové pole

Question

Zdravím,

Prosím, potřeboval bych ve VBA naformátovat textové pole ve formuláři, aby mi oddělovalo tisíce a přitom výstup z něj bylo číslo - aby to dále počítalo.

Těch techtových polí tam bude hodně, takže za použití co nejmenšího makra.

Děkuji moc, Jirka

Answer 1

Jednoduchý dotaz, složitější odpověď.

Tetxové pole je pole, které obsahuje text, je ho tedy nutné formátovat v makru.

Něco jako toto:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

   With TextBox1

      On Error Resume Next

      .Text = Format(CDbl(.Value), "#,##0.00")

      Cancel = Err

      If Cancel Then MsgBox "Opravte číslo", Buttons:=vbCritical

   End With

End Sub

Answer 2

Bezva, přesně co hledám.

Moc děkuji :-)

Answer 3

V prostředí VBA klikněte pravým tlačítkem na projekt. Vyberte VBAProject properties. Objeví se dialog, na záložce Protection můžete nastavit heslo.

Answer 4

Bezva, to je přesně ono :-) moc děkuji

Po super zkušenosti ještě jeden dotaz:

Mám nějaký model, který je postaven na vstupních formulářích a všechny listy excelu budou sloužit jen jako početní databáze a budou zkryté.

Jde zkrýt kod VBA (alt + F11) pod heslo, aby se nedalo cokoliv v modelu změnit a zobrazit?

Potřebuji co nejvíce chráněný model, aby nešl jen tak odemknout :-)

Předem děkuji