Как скрыть формулу, но отобразить результат без защиты листа в Excel?

В некоторых случаях вам может понадобиться скрыть формулы на вашем листе для конфиденциальности. В этой статье рассказывается о том, как скрыть формулы, но при этом отображать результаты без защиты листа в Excel.

Скрыть формулу, но отобразить результат без защиты листа с помощью кода VBA

Скрыть формулу, но отобразить результат без защиты листа с помощью кода VBA

Чтобы скрыть формулы, но отображать результаты без защиты листа, выполните следующие действия.

1. На листе, где нужно скрыть формулы, но отображать результаты, щелкните правой кнопкой мыши по ярлыку листа и выберите Код из контекстного меню.

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте код VBA в окно Кода.

Код VBA: скрыть формулу, но отобразить результат без защиты листа

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    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

Примечание: В коде C1:C10 — это диапазон ячеек, внутри которого вы хотите скрыть формулы. Измените его в зависимости от ваших потребностей.

3. Затем нажмите Инструменты > Ссылки…. Установите флажок Microsoft Script Runtime и нажмите кнопку ОК в окне Ссылки – VBAProject. Смотрите скриншот:

4. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь, когда вы кликнете на ячейку в указанном диапазоне, формула будет немедленно скрыта в Строке формул.

Связанные статьи:

• Как заблокировать определенные ячейки без защиты всего листа в Excel?
• Как удалить формулы из листа, но сохранить значения/результаты в Excel?