Ocultar Hojas
Apreciada Elsa, vuelvo a necesitar tu ayuda. Tengo el siguiente código que oculta determinadas hojas de un libro a partir de una fecha, el problema que una vez se ejecuta y se guarda el libro cuando se vuelve abrir da error ya que no encuentra las hojas, ¿cómo se puede solucionar? Gracias.
Private Sub Workbook_Open()
Dim mifecha As Date
mifecha = Format(Now(), "dd/mm/yy")
If mifecha >= 1 / 4 / 6 Then
Application.DisplayAlerts = False
Sheets(Array("Hoja2", "Hoja3")).Select
'Sheets("Hoja2").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
End If
End Sub
Private Sub Workbook_Open()
Dim mifecha As Date
mifecha = Format(Now(), "dd/mm/yy")
If mifecha >= 1 / 4 / 6 Then
Application.DisplayAlerts = False
Sheets(Array("Hoja2", "Hoja3")).Select
'Sheets("Hoja2").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
End If
End Sub
Respuesta de Elsa Matilde
1
Primero tendrás que controlar el posible error y en ese caso, mostrar las hojas y recién entonces eliminarlas:
Private Sub Workbook_Open()
Dim mifecha As Date
mifecha = Format(Now(), "dd/mm/yy")
If mifecha >= 1 / 4 / 6 Then
Application.DisplayAlerts = False
On Error GoTo MostrarHoja
Sheets(Array("Hoja2", "Hoja3")).Select
'Sheets("Hoja2").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Exit Sub
MostrarHoja:
'repetir para hoja3
Sheets("Hoja2").Visible = True
ActiveWindow.SelectedSheets.Delete
End If
End Sub
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/tys
Private Sub Workbook_Open()
Dim mifecha As Date
mifecha = Format(Now(), "dd/mm/yy")
If mifecha >= 1 / 4 / 6 Then
Application.DisplayAlerts = False
On Error GoTo MostrarHoja
Sheets(Array("Hoja2", "Hoja3")).Select
'Sheets("Hoja2").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Exit Sub
MostrarHoja:
'repetir para hoja3
Sheets("Hoja2").Visible = True
ActiveWindow.SelectedSheets.Delete
End If
End Sub
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/tys
