Expandir Minimizar

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

Office 2013

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:
© 2014 Microsoft