Activar de filtros

Hola buen día, necesito ayuda con este tema.
Tengo la siguiente macro que me desbloquea todas las hojas de un archivo
For i = 1 To Sheets.Count
    Sheets(i).Unprotect Password:="PASSWORD"
        Next i
y otra que me bloquea todas las hojas
For i = 1 To Sheets.Count
    Sheets(i).Protect Password:="PASSWORD"
        Next i
Lo que deseo es que cuando active la macro que bloquea las hojas, me permita filtrar, estando las hojas bloqueadas, puesto que con este código me deja los filtros bloqueados .agradezco la ayuda suministrada sobre este tema.