Excel - Ocultar formulas, sin proteger la hoja de calculo

Dim xDic As New Dictionary

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim xCell As Range

    Dim xRg As Range

    Set xRg = Range("C2:C19")

    If xDic.Count <> xRg.Count Then

        For Each xCell In xRg

            xDic.Add xCell.Address, xCell.FormulaR1C1

        Next

    End If

    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then

        With Target

            .Value = .Value

        End With

    Else

        For Each xCell In xRg

            xCell.Formula = xDic.Item(xCell.Address)

        Next

    End If

End Sub

Dim xDic As New Dictionary

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   '

   Dim xCell As Range

   Dim xRg As Range

   '

   Set xRg = Range("C2:C10,F2:F10") 'aquí uso rango C2:C10 y tambien F2:F10

   '

   If xDic.Count <> xRg.Count Then

      For Each xCell In xRg

         xDic.Add xCell.Address, xCell.FormulaR1C1

      Next

   End If

   '

   If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then

      With Target

         .Value = .Value

      End With

   Else

      For Each xCell In xRg

         xCell.Formula = xDic.Item(xCell.Address)

      Next

   End If

   '

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim xCell As Range

    Dim xRg As Range

    Set xRg = Range("G7:L10")

    If xdic.Count <> xRg.Count Then

        For Each xCell In xRg

            xdic.Add xCell.Address, xCell.FormulaR1C1

        Next

    End If

    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then

        With Target

            .Value = .Value

        End With

    Else

        For Each xCell In xRg

            xCell.Formula = xdic.Item(xCell.Address)

        Next

    End If

End Sub