Não tenho certeza de haver entendido a demanda, mas vamos tentar:
ActiveSheet.Visible = False não funcionou no excel 2010
Até onde sei funciona normalmente no 2010 e anteriores, porem no minimo uma planilha do arquivo deve estar visivel.
Sub nav()
ActiveSheet.Visible = False
Sheets("Plan1").Visible = True
Sheets("Plan1").Select
End Sub
às vezes fecho a pasta com uma planilhas, que não a do menu, ativa.
Para que "sempre" ao abrir o arquivo tenha sómente a planilha Menu visivel pode utilizar algo como:
'Ao fechar o arquivo, esconde" todas as planilhas cujo nome seja diferente de "Menu"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Menu").Visible = True
For Each ws In Worksheets
If ws.Name <> "Menu" And ws.Visible = True Then
ws.Visible = False
End If
Next
Application.ScreenUpdating = True
End Sub
Se não for isso, por favor fornece mais detalhes
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/10/2013 9:31 am