none
Destravar "Classificar" e "AutoFiltro" RRS feed

  • Pergunta

  • Prezados,

    Minhas planilhas estão travadas conforme senha contida na Macro. Contudo ao usar a macro abaixo as opções de "Classificar" e "Usar AutoFiltro" ficam desabilitadas, mesmo que eu já as tenha habilitado anteriormente.

    Quais são os códigos que devo incluir na macro abaixo para que estas opções, mesmo com a planilha travada, passem a funcionar?

    Grato,

    Sub Imprimir()
    '
    ' Imprimir Macro
    ' Imprimir seleção.
    '

    Sheets("Dados").Unprotect "M1226a3646g5780S122636465780RecriaPI"
        Range("A10").Select
        Application.Goto Reference:="Dados"
        ActiveSheet.Range("$J$9:$R$302").AutoFilter Field:=1, Criteria1:="<>"
        Range("A10").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("J3").Select
        ActiveSheet.Range("$J$9:$R$302").AutoFilter Field:=1
        Range("A10").Select
        
    Sheets("Dados").Protect "M1226a3646g5780S122636465780RecriaPI"

    End Sub


    Marco Antonio.

    sábado, 12 de janeiro de 2019 17:47

Respostas

  • Na verdade você precisa aplicar este código no momento da proteção da planilha, assim quando precisar usar não precisa desproteger antes.

    Na função que protege deve ter algo como:

    Sheets("Dados").Protect Password:="M1226a3646g5780S122636465780RecriaPI"

    ou:

    Sheets("Dados").Protect "M1226a3646g5780S122636465780RecriaPI"

    Troque então por:

    Sheets("Dados").Protect AllowSorting:=True, AllowFiltering:=True, Password:="M1226a3646g5780S122636465780RecriaPI"

    Então, no código acima você poderá remover a parte de desproteger. Compreendeu?



    Filipe Magno

    • Marcado como Resposta Marco1226 quinta-feira, 17 de janeiro de 2019 16:20
    domingo, 13 de janeiro de 2019 18:08

Todas as Respostas

  • Basta incluir:

    AllowSorting:=True, AllowFiltering:=True

    Mas note que algumas restrições se aplicam...


    Filipe Magno

    sábado, 12 de janeiro de 2019 18:21
  • Bom dia Prezado.

    Não funcionou. Porém não tive a percepção correta onde introduzir os códigos. Peço que se puder envie o código completo, com a modificação que sugeriu, para que eu possa copiar e colar.

    Abraço e muito obrigado.

    Marco.


    Marco Antonio.

    domingo, 13 de janeiro de 2019 12:46
  • Na verdade você precisa aplicar este código no momento da proteção da planilha, assim quando precisar usar não precisa desproteger antes.

    Na função que protege deve ter algo como:

    Sheets("Dados").Protect Password:="M1226a3646g5780S122636465780RecriaPI"

    ou:

    Sheets("Dados").Protect "M1226a3646g5780S122636465780RecriaPI"

    Troque então por:

    Sheets("Dados").Protect AllowSorting:=True, AllowFiltering:=True, Password:="M1226a3646g5780S122636465780RecriaPI"

    Então, no código acima você poderá remover a parte de desproteger. Compreendeu?



    Filipe Magno

    • Marcado como Resposta Marco1226 quinta-feira, 17 de janeiro de 2019 16:20
    domingo, 13 de janeiro de 2019 18:08