Bom dia!!

Temos muito assunto baseado na sua dúvida.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Public Sub lsConsultaEstoque()

Sheets("Consulta Estoque").Unprotect
Application.ScreenUpdating = False

Worksheets("Consulta Estoque").Rows("10:500000").Select
Selection.Delete Shift:=xlUp
If Range("A3") = "Todos" Then
Worksheets("Registro de Inventário").Range("A1:J1048576").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A8:J8"), Unique:=False
Else
Worksheets("Registro de Inventário").Range("A1:J1048576").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A2:A3"), CopyToRange:=Range("A8:J8"), Unique:=False
End If
lsRedimensionarTabela

Application.ScreenUpdating = True
Sheets("Consulta Estoque").Protect

End Sub

Bom dia Jorge,
Jogo em qual aba esse comando?

Coloca na macro "lsConsultaEstoque" ou melhor faz copy paste deste comando e substitui a macro!!!

Jorge,
Ajudou muito funcionou de boa, você poderia me explicar como fez... para que eu possar aprender também.
Só mais uma ajuda, eu queria que a aba registro de inventario ficasse todo travado, mas que o macro também não desse erro.
Obrigado

No comando da macro você coloca "unprotect" para desproteger a folha (Sheets("Consulta Estoque").Unprotect) e depois antes de fechar a macro você volta a proteger a folha com o comando protect (Sheets("Consulta Estoque").Protect).

Agora é só adaptar para as diferentes ações.

Espero ter Ajudado.
Se a mensagem foi util Favor Clicar na mãozinha.
Quando necessário, lembre se de marcar o tópico como [RESOLVIDO].