Desproteger / proteger hojas
Hola.
Me gustaría saber si hay alguna forma de desproteger y volver a proteger muchas hojas a la vez sin tener que ir una a una.
Tengo un libro con 100 hojas, todas protegidas con la misma clave, necesito hacer una modificación en todas ellas y para desproteger una a una y volver a protegerlas, aparte de tedioso, me llevaría mucho tiempo.
Si fuera posible lo que pregunto sería fabuloso.
Gracias adelantadas.
Me gustaría saber si hay alguna forma de desproteger y volver a proteger muchas hojas a la vez sin tener que ir una a una.
Tengo un libro con 100 hojas, todas protegidas con la misma clave, necesito hacer una modificación en todas ellas y para desproteger una a una y volver a protegerlas, aparte de tedioso, me llevaría mucho tiempo.
Si fuera posible lo que pregunto sería fabuloso.
Gracias adelantadas.
1 Respuesta
Respuesta de Abraham Valencia
1
Dim Hoja As WorkSheet
For Each Hoja In WokSheets
Hoja.Unprotect "clave"
'tus cambios
Hoja.Proyect "clave"
Next Hoja
Abraham
For Each Hoja In WokSheets
Hoja.Unprotect "clave"
'tus cambios
Hoja.Proyect "clave"
Next Hoja
Abraham
