Bloquer contenu d'un textbox

Pierrot93 à dit:

Re

pour Skoobi

modifier comme suit peut être :

Code:

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not CheckBox1 Then CheckBox1.SetFocus: TextBox1.ControlTipText = "TEXTBOX BLOQUE"
End Sub
Private Sub UserForm_Initialize()
[B]TextBox1.TabStop = 0[/B]
CheckBox1.SetFocus
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.ControlTipText = ""
End Sub
[B]Private Sub CheckBox1_Change()[/B]
[B]TextBox1.TabStop = CheckBox1[/B]
[B]End Sub[/B]

@+

Cliquez pour agrandir...