Sub ProtegerDesprotegerHojas()
Dim ws As Worksheet
Dim contraseña As String
' Establece la contraseña que deseas utilizar
contraseña = "TuContraseña"
' Protege todas las hojas de trabajo con la contraseña
For Each ws In [Link]
[Link] contraseña
Next ws
' Desprotege todas las hojas de trabajo con la contraseña
For Each ws In [Link]
On Error Resume Next ' Ignorar errores si la hoja ya está desprotegida
[Link] contraseña
On Error GoTo 0 ' Restaurar el manejo de errores normal
Next ws
End Sub