Excel Habilitar Auto Filtro, Macro desabilitou.

[Julio Oviedo]

Amigos...
estou quebrando a cabeça com uma planilha que elaborei para que eu controle o recebimento de matéria primas e insumos, já consegui deixar ela com as funcionalidades que eu preciso. Porém ao utilizar uma macro que executa o bloqueio da célula após o preenchimento pelo usuário afim de que se mantenha protegido por exclusões/alterações acidentais, essa MACRO desabilita o Auto Filtro, impedindo que se utilize da funcionalidade, uma vez que usuários irão consultar a planilha se utilizando o filtro.

As células estão autobloqueadas A20:U600 - Senha: GUAPORECIBIMIENTO

Macro que utilizei:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A20:U600")) Is Nothing Then
Exit Sub
Else
If Target.Value <> "" Then
Target.Select
ActiveSheet.Unprotect "GUAPORECIBIMIENTO"
Selection.Locked = True
End If
ActiveSheet.Protect "GUAPORECIBIMIENTO", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

CARTÓN DE SITUACIÓN - copia.xlsx

[Visitante]

Acrescente o comando em vermelho, conforme abaixo.

 

ActiveSheet.Protect "GUAPORECIBIMIENTO", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

[Julio Oviedo]

.

adicionado 0 minutos depois

@osvaldomp obrigado, esses códigos de VBA tem como encontrar uma lista especificando o que cada uma faz?

[Visitante]

Desconheço a existência dessa lista.

Clique sobre o comando e aperte F1 para acessar a ajuda do VBA.