Este artículo se tradujo automáticamente. Para ver el artículo en inglés, active la casilla Inglés. Además, puede mostrar el texto en inglés en una ventana emergente si mueve el puntero del mouse sobre el texto.
Traducción
Inglés

Cómo: Habilitar y bloquear entradas de usuarios en un cuadro de texto

Office 2013 and later

El ejemplo siguiente ilustra el uso de las propiedades Enabled y Locked y cómo se complementan entre sí. Cada propiedad se expone de forma independiente con un control CheckBox, para que pueda observar su efecto de forma individual y combinada. El ejemplo incluye también un segundo control TextBox para que pueda copiar y pegar información entre los controles TextBox y comprobar las actividades que admiten los valores de estas propiedades.

Nota Nota

Puede copiar la selección en el Portapapeles con Ctrl+C y pegarla con Ctrl+V.

Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Asegúrese de que el formulario contiene:

  • Un control TextBox denominado TextBox1.

  • Dos controles CheckBox denominados CheckBox1 y CheckBox2.

  • Un segundo control TextBox denominado TextBox2.

Dim TextBox1 
Dim TextBox2 
Dim CheckBox1 
Dim CheckBox2 
 
Sub CheckBox1_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Sub CheckBox2_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox2") 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox1") 
 Set CheckBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox2") 
 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
End Sub
Mostrar: