Arhelaer

Por algum motivo eu não consigo ver o código da macro na sua planilha, então não consigo testar nada. mas tenta trocar o código por esse: Private Sub Worksheet_Change(ByVal Target As Range) Dim ColunasQ As Range Set ColunasQ = Range(" A3:G58") If Not Application.Intersect(ColunasQ, Range(Target.Address)) Is Nothing Then ActiveSheet.Unprotect ("m") linha = Target.Adress Range(linha).Locked = True ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub Se ainda não der certo ainda deixa o código todo da macro por escrito, incluindo os outros subs

Group by não filtra resultado, não que eu saiba pelo menos kk. Ele só organiza(tipo do maior pro menor em certo atributo etc) Pra filtrar resultados tem que ser no where, como já tem um where no código tenta colocar AND no lugar de group by. Isso vai fazer o where filtrar o que tiver certo nos dois filtros dele, o status in ('shipped') e o que for maior que a data que você pediu.

Já tentou colocar Range("A3:G58").Locked = True no lugar do Range("Q" & linha).Locked = True? Acho que deve funcionar Edit: muda a range do colunas pra Range("A3:G58") também