Habilitar y bloquear un cuadro de texto de la entrada de usuario

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 Puede copiar la selección en el Portapapeles mediante 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.