locked
Comando para exibir a guia oculta

    Frage

  • Senhores Bom Dia,

     

    Estou programando uma simples planilha onde possui uma guia principal com macros que contém o nome dos meses do ano e, quando se clica em qualquer uma delas, abrirá a guia correspondente. 

    Porém, para não deixar visivel as guias para quem utilizar ser obrigado a utilizar os botões com as macros ativadas, ocultei as guias, porem, quando se clica nos botões ele apresenta a mensagem de erro: "Erro em tempo de execução '1004': O método Select da classe Worksheet falhou.

    Como sou leigo em VBA, gostaria de saber se podem me ajudar, me informando algum codigo onde ele exibaa guia oculta, porem sem torna-la visivel na regua abaixo do excel!!!

     

    Desde já agradeço a todos!

    Montag, 14. Februar 2011 14:04

Alle Antworten

  • Coloca assim no inicio do seu codigo:

     

    SUAPlan.Visible = xlSheetVisible

     

    e assim no fim:

     

    SUAPlan.Visible = xlSheetVeryHidden

    Montag, 14. Februar 2011 14:08
  • Ralf,

    utilize esta sub.

    voce vai passar como parametro o nome da aba que quer abrir

    Sub MudarAba(ByVal AbaPara As String)
    Dim n As Integer
    
    For n = 1 To Sheets.Count
      If Sheets(n).Name <> "Plan1" And Sheets(n).Name <> AbaPara Then
        Sheets(n).Visible = 2
      Else
        Sheets(n).Visible = -1
      End If
      
      Sheets(AbaPara).Select
    Next
    End Sub
    

    Caio Vitullo
    Montag, 14. Februar 2011 15:49