[SOLUCIONADO] Como ocultar un Botón de Opción en Excel

**jose luna** · 03/04/2010, 03:00

Hola amigos:
Tengo un Botón de Opción en hoja Excel, el que comanda el cambio de folio ( mes ) de trabajo. Lo cierto que el botón está visible, y que al marcarlo, me sube del mes que termina al siguiente guardando archivo como nuevo libro con el nuevo mes, pero... el botón de opción deseo que se oculte una vez hecho click en él. Será posible algún remedio en VB para esta situación de ocultarlo en el nuevo mes guardado?.
Desde ya Gracias por su tiempo y conocimientos compartidos.
Saludos cordiales

**Ajedrez** · 03/04/2010, 03:29

Hola, (si como dices esta en una hoja de Excel y no en un formulario) pudieras usar la propiedad "Visible" del Boton de Opcion, algo como esto:

Únicamente los usuarios registrados pueden visualizar esta información.

Para activarlo nuevamente

Únicamente los usuarios registrados pueden visualizar esta información.

Saludos.

**logroastur** · 03/04/2010, 03:31

buenas puedes colocar las siguientes linea en el codigo

OptionButton1.Visible = False

o si lo que quieres es quitarlo para que no este

OptionButton1.Select
Selection.Delete

prueba y ya comentaras

un saludo

**jose luna** · 03/04/2010, 22:29

Hecha las pruebas en archivo donde tengo la sgte. macro:

Sub LIMPIAR_FORMULARIOS()
'
' LIMPIAR_FORMULARIOS Macro
' Macro grabada el 19/10/2009 Jose Luna
'

'
Application.ScreenUpdating = False
Sheets("Ventas").Visible = True ' LIMPIA HOJA CONTROL VENTA MENSUAL
Sheets("Ventas").Select

Range("A7:C48").Select
Selection.ClearContents

Range("F7:F48").Select
Selection.ClearContents

Range("C4:E4").Select
Selection.ClearContents
Range("A7").Select

Sheets("Fact_Electr").Visible = True ' LIMPIA HOJA COMPRAS CON FACT ELECTRONICA
Sheets("Fact_Electr").Select

Range("A6:C46").Select
Selection.ClearContents

Range("A52:C56").Select
Selection.ClearContents

Range("F52:F56").Select
Selection.ClearContents

Range("F6:F46").Select
Selection.ClearContents
Range("A6").Select

Sheets("Fact_Papel").Visible = True ' LIMPIA HOJA COMPRAS CON FACTS EN PAPEL
Sheets("Fact_Papel").Select

Range("A6:C48").Select
Selection.ClearContents

Range("F6:F8").Select
Selection.ClearContents

Range("C3:E3").Select
Selection.ClearContents
Range("A6").Select

Sheets("Reg_Guia").Visible = True ' LIMPIA HOJA REGISTROS DE GUIAS
Sheets("Reg_Guia").Select

Range("A3:AC1000").Select
Selection.ClearContents
Range("A1").Select

Sheets("Registros").Visible = True ' LIMPIA HOJA REGISTROS DE FACTURAS
Sheets("Registros").Select

Range("A3:AC300").Select
Selection.ClearContents
Range("A1").Select

Sheets("Pendiente").Visible = True ' LIMPIA HOJA PENDIENTE DE FACTURACION
Sheets("Pendiente").Select

Range("A3:AD500").Select
Selection.ClearContents
Range("A3").Select

Sheets("Gasto1").Visible = True ' LIMPIA HOJA COSTO1
Sheets("Gasto1").Select
ActiveSheet.Unprotect
Range("B4:I500").Select
Selection.ClearContents
Range("B4").Select
ActiveSheet.Protect

Sheets("Inicio").Visible = True
Sheets("Inicio").Select

Range("AC1").Select

Range("AC1").Value = Range("AC1").Value + 1 ' CAMBIA FOLIO DE MES
Range("A1").Select

Application.ScreenUpdating = True

End Sub

Pero al apretar el boton de opcion 119 que llama a esta macro, no logro hacer desaparecer dicho boton 119 una vez que limpió los formularios y avanzó al mes siguiente.... En qué estaré mal ???
Gracias una vez mas

**logroastur** · 03/04/2010, 22:56

Buenas por lo que veo en tu macro no haces referencia al boton por lo que seguira visible, deberas de incluir una linea que indique su estado de visibilidad pasa a false o si lo que deseas es que se elimine delete

OptionButton119.Visible = False o OptionButton119.Delete

un saludo

**jose luna** · 03/04/2010, 23:04

Me sale lo sgte:
Al agregar OptionButton119.Visible = False
Se ha prodcido el error 424 en tiempo de ejecución
y no funciona
Atte

**Ajedrez** · 03/04/2010, 23:56

Yo insisto, ¿el OptionButton119 lo tienes en un formulario de VisualBasic o esta incrustado en la hoja de excel?, si esta en una hoja de excel en que hoja?

**jose luna** · 04/04/2010, 00:05

El boton 119 está en hoja excel, donde le agregué a este boton 119 la macro de limpiar formularios y aumentar en 1, al mes siguiente. Obviamente lel código está en VB en un módulo que se ejecuta cuando pincho dicho boton.
El porqué me gustaria ocultarlo, pues cuando trabajan otros usuarios, por curiosidad o por error pueden pinchar este botón, perdiendo toda la información almacebada del mes.
Ojalá me puedas comprender cuan es el dilema que tengo.
Gracias por paciencia y conocimientos generosos de ti y los que deseen colaborar.
Saludos

**Ajedrez** · 04/04/2010, 00:09

Sheets("nosecomosellama").Select
ActiveSheet.Shapes("OptionButton119").Visible = False

¿Como se llama la hoja en la que esta el boton de opcion?

**jose luna** · 04/04/2010, 18:42

Amigos: La solución que decidí es poniéndolo clave de acceso al botón de opción, pues de esta manera queda restringido el acceso al cambio de folio y por consiguiente, al borrado de toda la información almacenada del mes.
Mil gracias de nuevo a todos quienes me brindaron su apoyo en esto.
Saludos