数式を非表示にして、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

Note：コードでは、C1：C10は、数式を非表示にするセル範囲です。 必要に応じて変更してください。

3。 次に、をクリックします ツール > 参考文献…。 チェック Microsoftスクリプトランタイム ボックスをクリックして OK ボタンの 参照– VBAProject 窓。 スクリーンショットを参照してください：

4。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これ以降、指定した範囲のセルをクリックすると、数式は数式バーにすぐに非表示になります。

関連記事：

• Excelでワークシート全体を保護せずに指定したセルをロックするにはどうすればよいですか？
• ワークシートから数式を削除し、値/結果をExcelに保持するにはどうすればよいですか？