Foro Excel

Tengo un archivo (libro) con 27 hojas (pestañas). A todas les he puesto la misma contraseña para que los usuarios no me borren fórmulas por error. Necesito hacer cambios de vez en cuando en todas las hojas y ello me obliga a desbloquer las 27 una a una y volverlas a bloquear una a una, lo que es un verdadero engorro y pérdida de tiempo. ¿Existe alguna manera de que pueda bloquear o desbloquear todas las hojas a la vez?. Ya he probado a activarlas todas a la vez, pero en esta situación no funciona el menú "desbloquear hoja" en ninguna de ellas. Por favor tengo que hacer ya varios cambios en la formulación y lo que más me fastidia es tener que escribir la clave 27 veces para desbloquear y 54 más para volver a bloquear las hojas (81 veces). Gracias

Hola, espero sea de ayuda el siguiente código:

Código: Seleccionar todo

Sub DesprotegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
  Sheets(i).Select
  ActiveSheet.Unprotect "1234"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub

Sub ProtegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
  Sheets(i).Select
  ActiveSheet.Protect "1234"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub

Adrian escribió:Hola, espero sea de ayuda el siguiente código:

Código: Seleccionar todo

Sub DesprotegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
  Sheets(i).Select
  ActiveSheet.Unprotect "1234"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub

Sub ProtegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
  Sheets(i).Select
  ActiveSheet.Protect "1234"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub

Muchas gracias Adrian, anduvo super bien tu código, yo tenía el mismo inconveniente del que solicitó inicialmente tu ayuda.

Un abrazo desde Corrientes, Argentina.-