如何在不保护工作表的情况下隐藏公式但显示结果？

在某些情况下，您可能需要隐藏工作表中的公式以确保隐私。本文讨论的是在不保护工作表的情况下隐藏公式但显示结果的方法。

使用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中锁定指定单元格而不保护整个工作表？
• 如何从工作表中删除公式但保留值/结果？