如何在不保護工作表的情況下隱藏公式但顯示結果？

Author Siluvia Last modified 2025-08-23

在某些情況下，您可能需要為了隱私而隱藏工作表中的公式。本文將介紹如何在不保護工作表的情況下隱藏公式但仍顯示結果。

使用VBA代碼隱藏公式但顯示結果且不保護工作表

使用VBA代碼隱藏公式但顯示結果且不保護工作表

要隱藏公式但顯示結果且不保護工作表，請按照以下步驟操作。

1. 在需要隱藏公式但顯示結果的工作表中，請右鍵單擊工作表標籤，然後從右鍵菜單中選擇「檢視程式碼」。

a screenshot of selecting View Code from the right-clicking menu of the sheet tab

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」窗口中點擊「確定」按鈕。參見截圖：

a screenshot of enabling the Microsoft Scripting Runtime reference

4. 按Alt + Q鍵關閉Microsoft Visual Basic for Applications窗口。

從現在開始，當您點擊指定區域中的單元格時，公式將立即在編輯欄中被隱藏。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多