Bloqueio de céldas en Macros.

Hice una Macros que funcionó perfectamente, casi perfectamente una vez que ella deshabilitó el uso al Auto Filtro.

Abajo la Macro utilizada:

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 "senha"
Selection.Locked = True
End If
ActiveSheet.Protect "senha", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub