Elsa Matilde respondió:
La instrucción quedaría así: ActiveSheet.Protect "gmanager", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True O también válida, donde solo te faltaba la coma: ActiveSheet.Protect password=:"contraseña",...
¿Cómo eliminar registros filtrados en un listbox y se vea reflejado en la hoja ?