Habilitar un "Image" de ActiveX Controls en el Editor

Y porqué no la pones en el botón del mismo formulario, cuando el usuario introduce la contraseña correcta. Seleccionas la hoja y a la imagen le das la propiedad visible el valor a True, así al mismo tiempo que acierta con la contraseña muestra la imagen
Sheets("Hoja1").Select
Imagen1.Visible=True
Esto como parte final del código del botón de aceptar al introducir la contraseña.
>Un saludo
>Julio

Perdón julio, no me había fijado que ya habías respondido la pregunta.
Ok mira, puse el código hasta el final pero ma manda el error de :
Run-time error '424':
Object required
este es el código que tengo en el botón:
Private Sub CommandButton1_Click()
Dim a As String
   a = TextBox1.Text
        If a = "amota" Then
            Sheets("FORMULARIO").Visible = True ' muestra la hoja
            Sheets("FORMULARIO").Select
            ActiveSheet.Unprotect 'desprotege la hoja
            Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
        Else
            If a = "mcalixto" Then
               Sheets("FORMULARIO").Visible = True ' muestra la hoja
               Sheets("FORMULARIO").Select
               ActiveSheet.Unprotect 'desprotege la hoja
               Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
             Else
                 If a = "gruiz" Then
                    Sheets("FORMULARIO").Visible = True ' muestra la hoja
                    Sheets("FORMULARIO").Select
                    ActiveSheet.Unprotect 'desprotege la hoja
               Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
                 Else
                     If a = "fyañez" Then
                        Sheets("FORMULARIO").Visible = True ' muestra la hoja
                        Sheets("FORMULARIO").Select
                        ActiveSheet.Unprotect 'desprotege la hoja
               Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
                     Else
                         If a = "agutierrez" Then
                            Sheets("FORMULARIO").Visible = True ' muestra la hoja
                            Sheets("FORMULARIO").Select
                            ActiveSheet.Unprotect 'desprotege la hoja
                Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
                         Else
                             If a = "pramirez" Then
                                Sheets("FORMULARIO").Visible = True ' muestra la hoja
                                Sheets("FORMULARIO").Select
                                ActiveSheet.Unprotect 'desprotege la hoja
                Unload Me
    Range("G16").Select
    ActiveCell.FormulaR1C1 = a
    Range("B4").Select
                             Else
                                mensaje = MsgBox("Contraseña no válida, por favor intente de nuevo", 48, "Mensaje")
                                Unload Me
                                UserForm2.Show
                             End If
                         End If
                     End If
                 End If
            End If
        End If
'Sheets("FORMULARIO").Select   //  'AQUI PUSE EL CÓDIGO QUE ME ENVIASTE
'Imagen1.Visible = True
 
  End Sub
Muchas gracias julio!

Vamos a ver que me estoy dando cuenta que algo no funciona, ¿la imagen que tienes está dentro de los botones como imagen dentro del botón?
Aclarame esto, y otra cosa, si no pones mi linea de código la macro si funciona correctamente o te sigue lanzando el error.
>Un saludo
>Julio

No, las imágenes están cargadas en objetos "Image" (ActiveXContro) las cuales están insertadas en la hoja "FORMULARIO"., y que tienen algunas actividades en su propiedad "Click", o sea, que están funcionando como botones pero no lo son.
Los formularios que tengo los ocupo para las contraseñas de acceso y dentro de cada uno de ellos hay un botón normal que valida si la contraseña es la correcta.
Y respecto a lo otro, efectivamente, si no pongo tus líneas de código, funciona muy bien pero sigue estando "invisible" la Image1, ya que antes de cerrar el libro, se cambio su propiedad a Image1. Visible=False, recuerdas?
Gracias por tu atención y paciencia!
Alex.

Vale, ese es el problema por el que algunas veces no se te cargan las imágenes al iniciar el libro el problema es que no se manejan muy bien los ActiveX desde Excel, muchas veces por el antivirus que los bloquea, en fin para lo que quieres hacer le pasaste la propiedad visible =false (probablemente en el Close del Libro) pues ahora deberías poner la propiedad visible en el Auto_Open con la condición o condiciones :
Private Sub Workbook_Open()
If Userform1.TextBox1.Value="mcalixto" Or Userform1.Textbox1.Value="agutierrez" Then
Sheets("FORMULARIO").Select
Imagen1.Visible=True
End If
End Sub
Prueba esto y me cuentas asegurate que el valor de la contraseña esta en Textbox1 y si no es así lo cambias.
>Un saludo
>Julio