Mostrar controles

08/10/2006 - 13:19 por Jesús Díaz | Informe spam
Hola a todos. Tengo un par de preguntas:
1.- ¿Como hacer que se muestren determinados controles en un formulario, dependiendo del valor introducido en otro, o apretando un botón?
2.- ¿Cómo hacer para que nada más abrir el libro se muestre el formulario y no se pueda ver el libro y además que desde el formulario se cierre el libro?
Gracias por adelantado.

Preguntas similare

Leer las respuestas

#1 sorenkierkegaard
08/10/2006 - 17:31 | Informe spam
Hola Jesús, para la primer pregunta.

Private Sub CommandButton1_Click()
If TextBox1 = 5 Then ' o cualquier validación que quieras poner,
éste es sólo un ejemplo
CommandButton2.Visible = False
Else
CommandButton2.Visible = True
End If
End Sub

Para la segunda pregunta
Private Sub workbook_open()
Application.ScreenUpdating = False
Application.Visible = False
Inicial.Show 'Éste es el nombre del userform que quieres que aparezca
al iniciar excel
End Sub

Para cerrar el libro desde el Userform

Private Sub CommandButton1_Click()
ActiveWorbook.save ' para guardar antes
ActiveWorbook.close 'para salir
End sub
Respuesta Responder a este mensaje
#2 Jesús Díaz
08/10/2006 - 18:26 | Informe spam
Pues muchas gracias, es justo lo que quería. Había logrado resolver lo de la segunda pregunta de forma parecida, aunque más burda.

escribió en el mensaje news:
Hola Jesús, para la primer pregunta.

Private Sub CommandButton1_Click()
If TextBox1 = 5 Then ' o cualquier validación que quieras poner,
éste es sólo un ejemplo
CommandButton2.Visible = False
Else
CommandButton2.Visible = True
End If
End Sub

Para la segunda pregunta
Private Sub workbook_open()
Application.ScreenUpdating = False
Application.Visible = False
Inicial.Show 'Éste es el nombre del userform que quieres que aparezca
al iniciar excel
End Sub

Para cerrar el libro desde el Userform

Private Sub CommandButton1_Click()
ActiveWorbook.save ' para guardar antes
ActiveWorbook.close 'para salir
End sub
Respuesta Responder a este mensaje
#3 sorenkierkegaard
08/10/2006 - 18:37 | Informe spam
De nada Jesús, casi siempre es un placer.

Atte: SörenKierkegaard
Respuesta Responder a este mensaje
#4 Jesús Díaz
08/10/2006 - 18:49 | Informe spam
Ahora tengo un grave problema. Acabo de usar el código que me pones para hacer invisible el libro, pero resulta que quiero guardarlo con otro nombre y no puedo pasar a la ventana de excel. Le he dado al boton de "cerrar y pasar a excel" del editor VBA y ahora no veo nada. No se como abrir el libro con los cambios que ya tenía hechos par poder editarlo.

escribió en el mensaje news:
Hola Jesús, para la primer pregunta.

Private Sub CommandButton1_Click()
If TextBox1 = 5 Then ' o cualquier validación que quieras poner,
éste es sólo un ejemplo
CommandButton2.Visible = False
Else
CommandButton2.Visible = True
End If
End Sub

Para la segunda pregunta
Private Sub workbook_open()
Application.ScreenUpdating = False
Application.Visible = False
Inicial.Show 'Éste es el nombre del userform que quieres que aparezca
al iniciar excel
End Sub

Para cerrar el libro desde el Userform

Private Sub CommandButton1_Click()
ActiveWorbook.save ' para guardar antes
ActiveWorbook.close 'para salir
End sub
Respuesta Responder a este mensaje
#5 sorenkierkegaard
08/10/2006 - 19:18 | Informe spam
Abre un archivo en blanco de excel, entra a seguridad de Macros y
presiona sobre la opción de Muy alta o alta,
después abres tu archivo y entras al código, y en un botón (nuevo)
que insertes en tu userform escribes los siguiente:
Application.Visible = True
Hoja1.select

y Vuelves a activar la seguridad de macros a baja
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida