Boa tarde reyes!
O método .Protect da Application possui vários parâmetros, e não só a senha... caso o mesmo não seja informado/passado, o VBA atribui False (Falso) ao parâmetro (ou seja, se você não informar que o usuário poderá utilizar o AutoFiltro, "esse parâmetro ficará desabilitado" após executar seu código).
No exemplo abaixo (peguei do seu código), o autofiltro não funciona:
Sheets("Regularized").Protect Password:="321810"
No exemplo abaixo, o AutoFiltro funcionará, pois eu informei como verdadeiro (True) o valor do parâmetro AllowFiltering, que corresponde ao AutoFiltro do Excel:
Sheets("Regularized").Protect Password:="321810", AllowFiltering:=True
Segue abaixo a sintaxe do método Protect, contendo todos os parâmetros.... se quiser, pode testar adicionando ou removendo eles do seu código, caso não consiga vincular o nome do parâmetro a opção disponível na hora de proteger a planilha:
Sub Protect([Password], [DrawingObjects], [Contents], [Scenarios], [UserInterfaceOnly], [AllowFormattingCells], [AllowFormattingColumns], [AllowFormattingRows], [AllowInsertingColumns], [AllowInsertingRows], [AllowInsertingHyperlinks], [AllowDeletingColumns], [AllowDeletingRows], [AllowSorting], [AllowFiltering], [AllowUsingPivotTables])
Leia as REGRAS
Utilize arquivos COMPACTADOS
PESQUISE
AGRADEÇA clicando na mãozinha ao lado da ferramenta citar.
Marque o tópico como [Resolvido], clicando no √ ao lado do botão citar.
Abraços,
Murilo L
------------
e-mail: [email protected]
skype: fareva_mlima
Postado : 02/12/2014 1:20 pm