Agrupando hojas anular la protección individual de cada hoja

En cada hoja del cliente tiene :

Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="1"
End Sub

Y claro no me deja rectificar todas la hojas a la vez.

El código de la macro es :

Sub Agrupar_hojas_clientes()
' Grabada el 03/09/2014 por Luis
ActiveSheet.Unprotect Password:="1"
Sheets(Array("Adra Paco", "Balerma Trini", "El Ejido Adelina", "Berja Gador", "Adra Maria", _
"Iznajar Pepa", "Lucena Rafaela", "Lucena Carmen", "Benameji Juan", "Badolatosa Mª Jose", "Casariche Carmen", "Gilena Aurelia", "F. Piedra Antonia", "Humilladero Victoria", "Benameji Sole", _
"Galerias Fernandez", "Fuengirola Paco", "Fuengirola Charo", "Fuengirola Rosalia", "La Cala Antonia", "Marbella Juani", "Marbella Sara", _
"Flores Carmen", "Asuncion Maria", "Asuncion Pepi", "Asuncion Inma", "Asuncion Maria", "Asuncion Pepi", "Asuncion Inma", "Delicias Amparo", "La Paz Cris", "La Paz Paco", "La Luz J. Manuel", "Chapas Virginia Toñi", "P Sur Toñi", "Molinillo Meli", "Union Ramona Gema", _
"Huetor Mª Luisa", "Salar Carmen", "Loja Maribel", "Loja Paqui", "Loja Paqui", "Loja Mª Jose", "Moraleda Paqui", "Loja Pepa Marengo", "V Trabuco Charo", _
"A. Miel Manolo", "A. Miel Conchi Tere", "Torremolinos Paqui", "Torremolinos Fina", "Churriana Eva", "Pima", "Contado", "Viajante PACO", "Viajante ORTIGOSA")).Select _
Sheets("Adra Paco"). Activate
End Sub