ocultar hoja por código

hola, Dorian !

necesito que un libro siempre se abra en la hoja1 y despues de 5 segundos se oculte
logicamente debe estar visible la proxima vez que se abra el libro y repetir el proceso
mientras esta visible no debe permitir seleccionar ninguna de las otras hojas del libro...

copia/pega las siguientes lineas: -> en el modulo de codigo del libro [ThisWorkbook]...
[suponiendo que el nombre de la hoja1 es "hoja1"] :))

Private Sub Workbook_Open()
With Worksheets("hoja1")
.Visible = True: .Select
Application.Wait Now + TimeSerial(0, 0, 5)
.Visible = xlSheetVeryHidden
End With
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("hoja1").Visible = xlSheetVeryHidden
End Sub

saludos,
hector.

hola héctor,

muchas gracias !!! funciona perfectamente !!

saludos

dorian+






"Héctor Miguel" escribió en el mensaje
news:

hola, Dorian !

necesito que un libro siempre se abra en la hoja1 y despues de 5 segundos
se oculte
logicamente debe estar visible la proxima vez que se abra el libro y
repetir el proceso
mientras esta visible no debe permitir seleccionar ninguna de las otras
hojas del libro...

copia/pega las siguientes lineas: -> en el modulo de codigo del libro
[ThisWorkbook]...
[suponiendo que el nombre de la hoja1 es "hoja1"] :))

Private Sub Workbook_Open()
With Worksheets("hoja1")
.Visible = True: .Select
Application.Wait Now + TimeSerial(0, 0, 5)
.Visible = xlSheetVeryHidden
End With
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("hoja1").Visible = xlSheetVeryHidden
End Sub

saludos,
hector.