Visual Basic para Aplicaciones - Excel Retificacion

Salu2 y Grx de Antemano por echarle una ojeada a mi situacion..

Tengo un Libro con X cantidad de hojas, las cuales necesito mediante codigo protegerlas todas a la misma ves y desprotegerlos..

Salu2

Las siguiente macros hacen lo que quieres

Public Sub ProtegerHojas(ByVal Clave As String)
Dim ws As Worksheet

For Each ws In Worksheets
ws.Protect Clave
Next ws

End Sub

Public Sub DesProtegerHojas(ByVal Clave As String)
Dim ws As Worksheet

For Each ws In Worksheets
ws.Unprotect Clave
Next ws

End Sub

Para probarlas ejecutas

'Para proteger TODAS las hojas del libro activo
Public Sub Pruebas()
ProtegerHojas "miclave"
End Sub

'Para desproteger TODAS las hojas del libro activo
Public Sub Pruebas()
DesProtegerHojas "miclave"
End Sub

'Tambien puedes pasarle una cadena vacia, de esta manera protegeras las hojas sin contraseña

Public Sub Pruebas()
ProtegerHojas ""
End Sub