Hola, tengo la siguiente Macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$11" Then Exit Sub
If Target = "" Then Exit Sub
nomh = Target
Sheets(nomh).Range("A1") = Sheets(nomh).Range("A1")
Sheets(nomh).Select
End Sub
Me lleva a una lista de hojas, pero algunas las tengo protegidas y me da un error, sé que me falta algo como activar y desactivar pero no logro encontrar la respuesta... Gracias por cualquier ayuda
Respuesta de duainsulch
1
Para desproteger las hojas y volverlas a proteger deberías de usar
Sheets(nomh). Unprotect
Y posteriormente a select, Sheets(nomh). Protect
Gracias, como no me dijiste en que lugar debía incorporar la sub-rutina probé y me resulto.
Agradecido por tu buena disposición
Saludos
