Proteger varias hojas

[payorayo]

Buenas tardes, me gustaría ver como podria hacer una macro en la que bloquee y desbloquee varias hojas (por ejemplo 3) con una clave que yo ponga (por ejemplo "pepito", la misma para todas las hojas bloqueadas).

Nada más, un saludo y seguid asi.

[Antoni]

.

Para proteger:

Sub ProterHojas()

Sheets("Hoja1").Protect Password:="pepito"

Sheets("Hoja2").Protect Password:="pepito"

Sheets("Hoja3").Protect Password:="pepito"

End Sub[/CODE]

Para desproteger:

[CODE]Sub DesproterHojas()
Sheets("Hoja1").Unprotect Password:="pepito"
Sheets("Hoja2").Unprotect Password:="pepito"
Sheets("Hoja3").Unprotect Password:="pepito"
End Sub[/CODE]

.

[payorayo]

Muuuchas gracias Macro Antonio eres un crack.