Ejemplo de control CheckBox y propiedades Enabled y Locked

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 al portapapeles con CTRL+C y pegarla con CTRL+V.

Para usar este ejemplo, copie este código muestra en la parte Declaraciones 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.

Private Sub CheckBox1_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Private Sub CheckBox2_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 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.