Zoom a celda desbloqueadas en hoja protegida

Elsa Matilde como estas, el siguiente código le da zoom a una celda, el problema se presenta cuando la hoja esta protegida, le agregue un código para proteger y desproteger la hoja, pero al moverme queda desprotegida la hoja y por ende fórmulas y texto que no quiero que sea modificado queda vulnerable, en definitiva necesito que le dar zoom a las celdas pero desbloqueadas solamente en una hoja protegida, me podrías ayudar. Gracias
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Celda As Range, bytColor As Byte
On Error GoTo Worksheet_SelectionChange_TratamientoErrores
ActiveSheet.UnProtect Password:="xx"
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
' guardo en la variable estatica la fila y columna actual
Set Celda = Target
' duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.Font.Size = 18
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = 4
Worksheet_SelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Worksheet_SelectionChange_TratamientoErrores:
Resume Next
ActiveSheet.Protect Password:="xx"
End Sub