Enable autofilter

Hello,
In my sheet, when i run a macro it disables autofilter.
What can i do to run macro and then autofilter?
Thanks in advance

Post the macro code here. Thread moved to the VBA section.

Sub ChangeColor()
ActiveSheet.Unprotect "mypassword"
Range("G8:G79").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
ActiveSheet.Protect "mypassword"
End Sub