Destravar "Classificar" e "AutoFiltro"

Question

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.

Answer 1

Basta incluir:

AllowSorting:=True, AllowFiltering:=True

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

---

Filipe Magno

Answer 2

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.

Answer 3

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