locked
Iniciante em VBA - Reexibir linhas ocultas com VBA RRS feed

  • Pergunta

  • Estou montando uma planilha onde uma aba só aparece com senha (macro), porém uma outra aba tem informações que são alimentadas nesta aba que precisa de senha. Quando a pessoa coloca a senha e abre a aba essas linhas também precisam aparecer.

    Como faço isso com macro (VBA)?

    Valeu!

    terça-feira, 27 de julho de 2010 21:20

Respostas

  • Encontrei a solução:

     

    Sheets("Orçamento").Select
        ActiveSheet.Unprotect
        Rows("11:11").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=78
        Rows("112:112").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=24
        Rows("130:136").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=-129
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Sheets("Instruções").Select
        Range("I39").Select
        Plan15.Visible = True
        Sheets("Contas Especiais").Select
        Range("A1").Select

    • Marcado como Resposta Plojunior quarta-feira, 4 de agosto de 2010 12:24
    quarta-feira, 4 de agosto de 2010 12:24

Todas as Respostas

  • ThisWorkbook.Worksheets("Sheet1").Rows.Hidden=False
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    quarta-feira, 28 de julho de 2010 01:28
    Moderador
  • Luiz Cláudio,

    Obrigado pela informação, mas ainda estou com dúvidas. Mas como encaixo sua informação na macro abaixo?

    A minha macro está assim:

     

    Public mascara As String
    Public SENHA As String

    Sub Macro1()
     
        UserForm1.Show
       
    End Sub

    Sub Botão138_Clique()

    ActiveWorkbook.Unprotect ("0917")
    Plan15.Visible = True
    ActiveWorkbook.Protect ("0917")

    End Sub

    Sub ReexibirLinhas() - Está parte não esta funcionando junto com as macros de cima -

    Dim Intervalo As Range
    Set Intervalo = Union([A11], [A112], [A130], [A131], [A132], [A133], [A134], [A135], [A136])
    Intervalo.EntireRow.Hidden = False

    End Sub

    quarta-feira, 28 de julho de 2010 11:50
  • Encontrei a solução:

     

    Sheets("Orçamento").Select
        ActiveSheet.Unprotect
        Rows("11:11").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=78
        Rows("112:112").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=24
        Rows("130:136").Select
        Selection.EntireRow.Hidden = False
        ActiveWindow.SmallScroll Down:=-129
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Sheets("Instruções").Select
        Range("I39").Select
        Plan15.Visible = True
        Sheets("Contas Especiais").Select
        Range("A1").Select

    • Marcado como Resposta Plojunior quarta-feira, 4 de agosto de 2010 12:24
    quarta-feira, 4 de agosto de 2010 12:24