VBA: El objeto OLEObject en macros de Excel.

Toca hoy aprender un poco más sobre los controles ActiveX y la forma de interactuar con ellos. En particular hablaré del objeto OLEObject. Hay que saber que este objeto representa un control ActiveX o un objeto OLE (incrustado o vinculado) en una hoja de cálculo.
Probablemente lo sepamos, pero un control ActiveX de una hoja tiene dos nombres: el nombre de la forma que contiene el control, visible en el cuadro Nombre al ver la hoja, y el nombre en código del control, presente en la celda situada a la derecha de (Name) en la ventana Propiedades.

Veamos un ejemplo de aplicación de este objeto. En la Hoja1 de nuestro libro tenemos dispuestos varios controles, algunos son controles de formulario y otros controles ActiveX y también alguna autoforma; entre ellos existen controles de toda clase, pero en concreto hay varios controles tipo CommandButton. Esto son lo que nos interesan, y en particular aquellos con el texto en su Caption 'Excel', escrito de cualquier manera (sin distinguir entre mayúsculas y minúsculas).

Insertaremos en la hoja del Explorador de proyectos del Editor de VBA el siguiente código, asociado al CommandButton de fondo rojo de nuestra hoja (que hemos llamado, i.e., con Name = CommandButtonIdentifica) formando nuestra macro de Excel:

Private Sub CommandButtonIdentifica_Click()
Dim ctrl As OLEObject
Dim boton As CommandButton

'Recorre los objetos de la hoja de cálculo
For Each ctrl In Worksheets(1).OLEObjects
    'Typeof identifica el tipo de objeto, en nuestro ejemplo exclusivamente no sinteresan los CommandButton
    If TypeOf ctrl.Object Is CommandButton Then
    'Enmascaramos el objeto identificado en una variable de tipo botón para poder manipular sus propiedades
    Set boton = ctrl.Object
    'Identificamos los botones cuyo texto(Caption) sea 'Excel' para deshabilitarlos, ocultarlos, o lo que queramos
    If LCase(boton.Caption) = "excel" Then
    'Dependiendo de la propiedad que quieras manipular, deberás acceder a ella o bien por el objeto botón o bien por el objeto control
    'Si las propiedades Enabled y Locked están ambas como True,
    'el control puede recibir el enfoque y se muestra en formato normal (no atenuado) en el formulario.
    'El usuario puede copiar, pero no editar, los datos del control.
    boton.Enabled = True
    boton.Locked = True
    ctrl.Visible = True
    'para ssegurarnos fácilmente que la macro corre adecuadamente, le asignamos al CommnandButton un color de fondo Ciano
    boton.BackColor = vbCyan
    End If
    End If
Next
End Sub

Si presionamos el botón rojo, en el que hemos incluido mediante el evento _click nuestra macro, obtendríamos:

Como esperábamos la macro sólo ha afectado a los CommandButton con un Caption 'Excel'.