Janelas e Workbook invisiveis

[Akli]

Olá

Tenho um grande problema, usei este codigo "Application.ActiveSheet.Visible = False" no VBA e todas as sheets que tinha ficaram invisiveis.

já tentei os seguintes comandos:

Application.ActiveSheet.Visible = True

ThisWorkbook.Worksheets("MEFIDIS_SingleCell").Visible = True

ThisWorkbook.Worksheets("MEFIDIS_GRID").Visible = True

Application.Worksheets("MEFIDIS_SingleCell").Visible = True

Application.Worksheets("MEFIDIS_GRID").Visible = True

E nada funciona. Preciso de ajuda urgentemente porque a folha é um interface e se não estiver visivel perco semanas de trabalho.

Alternativa: Se houver uma forma de copiar o conteudo de todas as celulas de cada sheet para um workbook novo pode ser uma alternativa.

Obrigado

Akli

[Durutti_Black]

Akli

Com esse código V. ordenou que a Sheet activa se tornasse invisível. Se V. não fez mais nada, as restantes sheets deveriam estar visíveis. No minímo, uma das sheets do workbook tem de obrigatoriamente ficar visível - nenhum código pode fechar todas as sheets.

Experimente através do Format/Sheet/Unhide (desculpe usar o inglês mas não tenho a certeza de como está na versão portuguesa)

ou através deste código

Sub Exp()
Dim ws As Worksheet
For Each ws In Worksheets
   ws.Visible = True
Next ws
End Sub