Excel cellen blokkeren na invoer door gebruiker - Autofilter nodig

Hallo,

Ik ben op zoek naar een oplossing/aanvulling voor een macro in Excel.

Deze macro zorgt ervoor dat cellen geblokkeerd worden indien de gebruiker een waarde heeft ingegeven.
Dit doen we dus om de reeds ingegeven waarden in de cellen te beschermen.

Hiervoor gebruik ik onderstaande code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
ActiveSheet.Unprotect ' Password:="xxx"
For Each cel In Target
If cel.Value <> "" Then
cel.Locked = True
End If
Next cel
ActiveSheet.Protect ' Password:="xxx"
End Sub


Nu is het probleem dat het gebruik van de Autofilter niet meer mogelijk is, dit is echter noodzakelijk (het zijn 15 000 rijen)..
De instellingen van 'Blad beveiligen - Autofilter toestaan' werkt niet, aangezien de macro deze instellingen steeds overschrijdt.

Kent er iemand een oplossing om de Autofilter toch toe te staan?
Of om een specifieke kolom nooit te blokkeren/beschermen?

Alvast bedankt voor de hulp!

Mvg
Leysens

Wanneer je UserInterFaceOnly = True gebruikt bij het openen van Excel heb je geen last van dit probleem en hoef je niet bij iedere handeling de beveiliging eraf te halen.
http://www.ozgrid.com/VBA/excel-macro-protected-sheet.htm (Engels)