Ocultar formulas, sin proteger la hoja de calculo
Publicado por Eduardo (11 intervenciones) el 09/11/2019 21:02:06
Estimados e estado buscando la forma de ocultar la formulas en la hoja de trabajo.
buscando por Internet encontré esta macro en la cual oculta la formula y muestra el resultado dejando expresado el resultado en la barra donde se escribe la formula en un rango de celdas determinadas.
este es el código que oculta las formulas en la barra dentro de un rango de celdas
Luego del código se tiene que ir a Herramientas --> Referencias y dejar activado Microsoft Scripting Runtime como sale en la imagen, para que funcione.
Mi consulta es: Se puede modificar este código para que se pueda ocultar las formulas en dos o mas rangos de celdas. Ejemplo: Ocultar las formulas de C2:C19 y E2:E19
¿se puede hacer que estas dos formulas se puedan ocultar?
Desde ya muchas gracias.
Saludos cordiales.
buscando por Internet encontré esta macro en la cual oculta la formula y muestra el resultado dejando expresado el resultado en la barra donde se escribe la formula en un rango de celdas determinadas.
este es el código que oculta las formulas en la barra dentro de un rango de celdas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
Luego del código se tiene que ir a Herramientas --> Referencias y dejar activado Microsoft Scripting Runtime como sale en la imagen, para que funcione.
Mi consulta es: Se puede modificar este código para que se pueda ocultar las formulas en dos o mas rangos de celdas. Ejemplo: Ocultar las formulas de C2:C19 y E2:E19
¿se puede hacer que estas dos formulas se puedan ocultar?
Desde ya muchas gracias.
Saludos cordiales.
Valora esta pregunta
0