Macro deja de funcionar al proteger la hoja
Mi hoja debe estar protegida y solo algunas celdas pueden ser seleccionadas. Quise dar un toque más interesante al seleccionar celdas para que al hacerlo la celda tenga un color diferente al resto de la hoja.
Encontré una macro que hace exactamente lo que necesito pero unicamente si la hoja esta desprotegida, una vez que la protejo, la macro deja de funcionar. ¿Qué debo agregar o quitar de la macro para que funcione aun si la hoja esta protegida? Aquí dejo la macro.
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub
2 Respuestas
Lo que podés hacer es al inicio de la macro desproteger la hoja y al final volver a protegerla. Algo del estilo
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveSheet. Protect
...
...
ActiveSheet. UnProtect
End Sub
¡Gracias! Estimado Gustavo
Justo lo que necesitaba, funciona perfecto, solo cambie el orden de la instrucción, el Unprotect lo puse al inicio y el Protect a final y listo. Nuevamente gracias.
[Hola
Prueba así.
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Sheets("Nombre de la Hoja"). UnProtect
Y al final de la macro vuelves a proteger la hoha
Sheets("Nombre de la Hoja"). Protect
End sub