Textbox beveiligen tegen wijzigen

[avesoft]

heren forumleden

is het mogelijk als een userform geopend word de textboxen te beveiligen tegen wijzigen?

BV als ik userform met een aantal textboxen heb ,
zodra ik met muis het textbox aanklik dat dan msgbox verschijnt met bericht dat dit niet gewijzigd kan worden

alvast bedankt

gr ar

 

[Niels28]

Bij de eigenschappen van de textbox locked op true zetten.
Maar waarom dan een textbox? kun je geen label gebruiken?

Niels

 

[avesoft]

niels

bedankt

id klopt , ik had alle textboxen geselecteert en dan kan het niet . ik moet ze 1 voor 1 doen dan lukt het wel maar met een msgbox zou mooi zijn


met textboxen kan ik wel mee uit de voeten , met text in labels nog niet zo


gr arie

 

[Niels28]

Als je van een label de tekst wil veranderen of weg wil schijven
dan kun le dit doen met bv range("a1").value = label1.caption

Niels

 

[avesoft]

niels

ik zal het eens proberen , maar is er een voor nu een mogelijkheid zodra ik op een textbox klik dat er een msgbox verschijnt

arie

 

[Niels28]

Ja dan kan zo

Private Sub TextBox1_Enter()
MsgBox "textbox is beveiligd!"
End Sub


Private Sub UserForm_Initialize()
TextBox2.SetFocus
End Sub

Ik heb er textbox2.setfocus bij gezet, dit ie er een die niet beveiligd is anders krijg je meteen de melding.

Je kan ook eventueel bij de eigenschappen enable op false zetten dan kun je hem niet selecteren, dan werkt de msgbox natuurlijk niet

Niels

 

[Roncancio]

Je kunt er ook voor kiezen om met MouseDown te werken.

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Deze textbox is geblokkeerd."

End Sub

Textbox1 heeft nog steeds de focus maar bij het klikken van de muis op Textbox1 verschijnt de melding.

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

top , en meerdere textboxen dan ? moet ik voor iedere textbox de macro toe passen

gr arie

 

[avesoft]

heren

dank je voor moeite , ik doe alleen de textboxen locken , is voldoende

gr arie

 

[avesoft]

heren

alleerst dank jullie nog

heb nog een probleempje met weergave van % in een textbox

1 in een sheet komt bv in cel E35 ,25% te staan
2 dat wil ik in een textbox laten zien in een userform
3 ik krijg dan alleen rare cijfers te staan

wat kan daar oorzaak van zijn ??

 

[Roncancio]

Je zou gebruik kunnen maken van .Text.
Voorbeeld:

TextBox1.Value = Range("A1").Text

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

perfect dank je

gr arie