Escondeu acidentalmente todas as colunas com uma macro, como faço para recuperá-las?

Question

Eu tentei clicar no canto do topleft para selecionar tudo e clicar com o botão direito do mouse e selecionar "Unhide". Não faz nada.

Por favor, ajude-me a recuperar minha planilha!

Estaéamacro:

SubHideDetails()Range("3:8").Select
    If Selection.EntireColumn.Hidden Then
        Selection.EntireColumn.Hidden = False
        ActiveSheet.Buttons("btnToggleDetails").Caption = "-"
    Else
        Selection.EntireColumn.Hidden = True
        ActiveSheet.Buttons("btnToggleDetails").Caption = "+"
        Range("A1").Select
        Application.CutCopyMode = False
    End If
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Esqueci de substituir o EntireColumn por EntireRow antes de executá-lo.

    

Answer 1

Ufa, corrija-o manualmente executando o seguinte:

Sub Test()
    Range("3:8").Select
    Selection.EntireColumn.Hidden = False
End Sub

    

Answer 2

Tente:

Sub SeeAll()
    Range("1:1").EntireColumn.Hidden = False
End Sub

Isso deve restaurar as colunas all para visibilidade.

    

Answer 3

Espero que os exemplos a seguir ajudem você =)

se sua única coluna A (1)

Sub UnhideColumnOne()
  On Error Resume Next 
    Range("1:1").Select
    Selection.EntireColumn.Hidden = False
End Sub

Eu deveria usar se todas as colunas colunas:

Sub Unhide_All_Columns() 
    On Error Resume Next 
     'in case the sheet is protected
    ActiveSheet.Cells.EntireColumn.Hidden = False 
End Sub 

se você quiser reexibir todas as linhas:

  Sub Unhide_All_Rows() 
        On Error Resume Next 
         'in case the sheet is protected
        ActiveSheet.Cells.EntireRow.Hidden = False 
    End Sub 

Atenciosamente

xsisec