Как скрыть формулу, но оставить видимым её результат без защиты листа в Excel?
В некоторых случаях вам может потребоваться Скрыть формулы на листе для обеспечения конфиденциальности. В этой статье рассказывается о том, как скрыть формулы, но отображать результаты без защиты листа в Excel.
Скрытие формулы с отображением результата без защиты листа с помощью кода VBA
Скрытие формулы с отображением результата без защиты листа с помощью кода VBA
Чтобы скрыть формулы, но отображать их результаты без защиты листа, выполните следующие действия.
1. На листе, где нужно скрыть формулы, но оставить видимыми их результаты, щёлкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт Просмотреть код.
2. В окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код 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 для приложений.
Теперь, как только вы щёлкнете по ячейке в диапазоне «Ограниченный диапазон», формула сразу же исчезнет из строки формул.
См. также:
- Как заблокировать отдельные ячейки в Excel, не защищая весь лист?
- Как удалить формулы с листа, сохранив их значения в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек