none
Proteger planilha rodando macro normalmente RRS feed

  • Pergunta

  • Pessoal, uma ajudinha por favor.

    Com a ajuda de vcs estou utilizando um comando que faz com que todas as linhas que estiverem em branco fiques ocultas. Q é justamente essa ai em baixo:

    Sub hideCells()
    
    Dim celula
    Range("b13").Select
    For celula = 13 To 123
        If Range("B" & celula) = "" Then
        Range("B" & celula).EntireRow.Hidden = True
        Else
        End If
    Next celula
        Range("B128").Select
    For celula = 121 To 151
        If Range("B" & celula) = "" Then
        Range("B" & celula).EntireRow.Hidden = True
        Else
        End If
    Next celula
        Range("b13").Select
    End Sub

    Criei um botão na planilha fazendo com q ela rode perfeitamente, ela faz exatamente o q eu quero.  

    Só q nem tudo são flores. kkkkkkkk

    Estou tentando proteger minha planilha, só q quando a bloqueio lá em "PROTEGER PLANILHA". Os Macro não rodam, apresenta um erro 1004. 

    Fazendo algumas pesquisas percebi q esse não era um problema exclusivamente meu, e em alguns fóruns descobri a orientação abaixo:

    2. Fazer com que a macro desproteja a planilha, faça as alterações e, depois, proteja a planilha novamente. Exemplo de código abaixo:
    
    Sub Teste()
    
    'comando que desprotege a planilha, no caso a senha é TESTE
    ActiveSheet.Unprotect "TESTE"
    
    'código da macro (aqui você coloca o código da sua macro)
    
    'comando que protege a planilha
    ActiveSheet.Protect "TESTE"
    
    End Sub

    Tentei adaptar o primeiro comando a esse segundo comando citado agora e deu erro. Como posso adapta-la ?  Se não der pra adaptar existe outra forma? 


    • Movido AndreAlvesLima sexta-feira, 14 de setembro de 2012 10:50 (De:VB.NET e Visual Basic)
    quinta-feira, 13 de setembro de 2012 21:22

Respostas

  • Segue como utilizei

    Private Sub Workbook_Open()
    ActiveSheet.Unprotect "Senha"
    Sheets("Nome da Guia").Select
    Range("B6").Select
    Selection.ClearContents
    MsgBox "Suporte: MSN: Teste / Skype: Teste/ Tel.: Teste", vbInformation, "Nome da planilha"
    ActiveSheet.Protect "senha"
    End Sub

    • Marcado como Resposta Brandão Jr sábado, 29 de setembro de 2012 16:35
    sábado, 29 de setembro de 2012 16:34

Todas as Respostas