Macro that filters a table but then disables autofilter

[pwebley]

Right now I have a macro that filters a table based on a cell's value. It does great filtering the table but after it runs I can't filter it manually anymore. I have a feeling that it is because it protects the sheet at the end of it and doesn't leave the option of using the auto filter. Does anyone know how I can re-protect the sheet at the end of the macro but still allow me to manually auto filter the table still?

Here is the code:

Sub Generate_Source_List()
ActiveSheet.Unprotect
 Application.ScreenUpdating = False
ActiveSheet.ListObjects("Table32").Range.AutoFilter Field:=3, Criteria1:= _
        Range("C8").Value, Operator:=xlAnd
 Application.ScreenUpdating = True
  ActiveSheet.Protect
End Sub