none
Planilha como argumento em subrotina RRS feed

  • Pergunta

  • Boa noite,

     

    Escrevi a subrotina abaixo:

    Public Sub Ocultar(Planilha As Worksheet)
        With Planilha
            .Visible = xlSheetVeryHidden
        End With
    End Sub


    Porém ao passar uma planilha como argumento, por exemplo: Plan1; recebo uma mensagem dizendo que: "O objeto não aceita essa propriedade ou método".

     

    O que deve ser modificado na rotina acima mencionada para que funcione corretamente?

     

    Obrigado.

     

    Abraço

    sábado, 24 de dezembro de 2011 23:16

Todas as Respostas

  • Public Sub Ocultar()
        With Plan1
            .Visible = xlSheetVeryHidden
        End With
    End Sub



    Não precisa de tanto, bastaria:

    Public Sub Ocultar()
            Plan1.Visible = xlSheetVeryHidden
    End Sub
    


     


    jose
    • Editado joséA domingo, 25 de dezembro de 2011 12:03 correção
    domingo, 25 de dezembro de 2011 12:01
  • Boa noite,

     

    Obrigado joséA, mas a sugestão passada é justamente o que preciso substituir pela subrotina que recebe como paramentro a planilha; o motivo da troca é que teria que escrever o um metodo para realizar as mesmas alterações, a cada planilha já existente ou nova planilha criada.

     

    Um grande abraço.

    domingo, 25 de dezembro de 2011 22:08