Esconder hoja de Excel

22/07/2006 - 03:17 por Alejandro Arellano | Informe spam
Hola que tal buenas tardes,, un gran saludos a todos!!

Recurro a ustedes por que estoy hecho un lio con una aplicacion que estoy
haciendo en excel,, he hecho un formulario por medio de modulo vba de excel
para que capturen los datos en el y no en la hoja directamente,, ahora mi
pregunta ¿como se puede hacer para que al abrir el archivo oculte todas las
hojas de excel y solo muestre el formulario?? se puede hacer esto??

De antemano muchas gracias,, agradecere cualquier ayuda!! Saludos!!

Preguntas similare

Leer las respuestas

#6 Francisco Parrilla
22/07/2006 - 04:49 | Informe spam
Un comentario basico :)

Si lo guardas como XLA no te reconocera el nombre del archivo activo si no
lo haces activo en las referencias ;)
Saludos

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay
Respuesta Responder a este mensaje
#7 Servando
22/07/2006 - 04:58 | Informe spam
Estimado Francisco:
Que te parece si en lugar de solo decir, "si se puede", no escribes la
forma de hacerlo.
Respuesta Responder a este mensaje
#8 Servando
22/07/2006 - 06:32 | Informe spam
Alejandro:
Después de la excelente catedra que nos ha dado Francisco y de lo que
he aprendido de el, ahora puedo decirte lo siguiente:

Excel, no permite ocultar todas sus hojas, pero si puedes ocultar el
libro (cosa muy diferente a ocultar las hojas). Para lograr el efecto
que deseas, tienes que escribir unas pequeñas rutinas de VBA en tu
libro.

en el código de ThisWorkbook, escribe/copia estos eventos:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Run "TuRutinaFormulario" 'llamas a la rutina que
presenta tu formulario
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = True
MsgBox ("Adios")
End Sub

Ahora te pongo un ejemplo muy sencillo de lo que hace el boton que
graba tus datos en la hoja de trabajo
.
Private Sub CmdGraba_Click()

Windows("oculto todo.xls").Visible = True
Workbooks(ThisWorkbook.Name).Sheets("Sheet1").Activate
Range("A1") = TextBox1.Text
Windows("oculto todo.xls").Visible = False

End Sub

Como te puedes dar cuenta, mi libro se llama "oculto todo.xls", y tu
debes poner el nombre del tuyo.

A tu botón donde cierras el formulario, añádele el código necesario
para guardar y cerrar el libro y evitar la perdida de tus datos.

Si no añades el código de guardar y cerrar, solo podrás cerrar el
archivo cerrando excel y te preguntara si guarda los cambios.

También puedes hacerlo, volviendo a mostrar el libro, para que te
habilite los comandos correspondientes.

Si tienes alguna duda, por favor comentala

Saludos
Servando Villalón

P.D. Si no hay alguien disponible, posiblemente Francisco pueda
amablemente ayudarte a resolver tus dudas.
Respuesta Responder a este mensaje
#9 Francisco Parrilla
22/07/2006 - 06:54 | Informe spam
No esta en mi despejar todas o ninguna de tus dudas :)
Respuesta Responder a este mensaje
#10 Francisco Parrilla
22/07/2006 - 08:02 | Informe spam
Solo para fines de desmostracion :)

http://mx.geocities.com/gozalo_ya/V...cultas.xls

Baja el libro y veraz que si se puede ;)

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida