interzice introducere un anumit caracter intr-un user for

[myhay99]

Pot cumva sa pun restrictia sa nu poti introduce "," intr-un textbox dintr-un userform?
Multumesc anticipat

[Dr.Windows]

Da, Pune acest cod:

Cod: Selectaţi tot

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("/\?,*[]", Chr(KeyAscii)) Then
        MsgBox ("Caracter interzis: " & Chr(KeyAscii))
        KeyAscii = 0
    End If
End Sub

Pune in functia InStr ce caractere le vrei "interzise" si poti avertiza cu MsgBox sau poti sa-l stergi si atunci pur si simplu acele caractere nu se vor tasta...

[myhay99]

multumesc mult de tot. foarte usefull!

[myhay99]

ce pot face daca pe unele calculatoare, pt codul de mai sus, am eroarea:

Compile error:
Can't find project or library

?

[Dr.Windows]

Verifica in codul VBA de pe un PC unde functioneaza in Tools \ References, ce referinte foloseste codul tau VBA si ai grija ca si pe celelalte PC-uri sa fie la fel...

[myhay99]

am uitat sa specific, e vorba de cateva zeci de calculatoare, poate chiar 100.
E putin cam complicat sa fac asta la toate computerele, ma gandeam ca poate pot s-o rezolv cumva din VB

[Dr.Windows]

In principiu eroare mentionata de tine se datoreaza faptului ca in codul VBA folosesti o referinta catre un DLL sau ceva care nu exista pe celelalte PC-uri, poti verifica ce lipseste (daca scrie pe undeva Missing Reference) la 1-2 PC-uri si apoi sa distribui acel DLL lipsa si pe celalalte PC-uri... asta daca nu completeaza cineva subiectul cu o idee mai buna...