なぜ、数式を隠す必要があるのか？
実務でExcelを共有する際、苦労して作成した「複雑な計算式」をそのまま見せていませんか？数式をそのままにしておくと、誤って他者が数式を書き換えてしまったり、せっかくのノウハウを無断でコピーされたりするリスクがあります。
数式を「表示しない」設定を適切に行うことで、計算結果だけをユーザーに提供し、ロジックを保護しながら安全にファイルを運用できるようになります。今回は、この「数式隠蔽」の基本と、VBAを使った自動化のポイントを解説します。
基礎知識：Excelの「保護」の仕組み
Excelには「セルのロック」と「数式の非表示」という2つの設定があります。これらは、単にチェックを入れただけでは機能しません。必ず「シートの保護」を実行することで初めて適用されるのがポイントです。
1. ロック：シート保護時に、セルの編集を禁止する（デフォルトでON）。
2. 表示しない：シート保護時に、数式バーの内容を空にする（デフォルトでOFF）。
実務では、入力が必要なセルだけ「ロック」を外し、数式セルは「ロック」と「表示しない」の両方を設定するという使い分けが基本です。
実装手順：VBAで「数式隠蔽」を自動化する
手動設定はミスが起きやすいものです。VBAを使えば、特定の範囲を指定して一括で「数式のみを非表示にする」ことが可能です。以下のコードは、アクティブシート内の数式が入っているセルだけを自動で検索し、非表示設定を施した上でシートを保護する実務的なサンプルです。
サンプルプログラム
Sub ProtectFormulas()
‘ 画面更新を停止して処理を高速化
Application.ScreenUpdating = False
Dim targetRange As Range
‘ シートの保護を一旦解除
ActiveSheet.Unprotect
‘ セル全体のロックを解除（必要に応じて調整）
Cells.Locked = False
‘ 数式が入力されているセルのみを対象にする
On Error Resume Next
Set targetRange = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not targetRange Is Nothing Then
‘ 数式セルにロックと非表示を設定
With targetRange
.Locked = True
.FormulaHidden = True
End With
End If
‘ シートの保護を有効化（パスワードを設定する場合は Password:=”1234″ を追加）
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
MsgBox “数式セルを非表示にし、シートを保護しました。”
End Sub
応用・注意点：現場での運用Tips
1. パスワード設定の重要性
上記のコードで `ActiveSheet.Protect` にパスワードを設定しない場合、誰でも「シートの保護」を解除できてしまいます。機密性の高いファイルであれば、必ず `Password:=”任意のパスワード”` を引数に追加してください。
2. 入力セルとの兼ね合い
このコードは「シート全体をロック解除してから、数式セルのみをロックする」というアプローチをとっています。もし、他のセル（入力箇所）をあえてロックしたい場合は、`Cells.Locked = False` の行をコメントアウトし、入力セルだけを個別にロックするよう調整してください。
3. 完璧なセキュリティではないことを理解する
Excelのシート保護は、あくまで「誤操作防止」や「軽微な覗き見防止」を目的としたものです。高度な技術を持つユーザーであれば解除可能な場合があります。機密性の高いデータや独自の経営ロジックを完全に守りたい場合は、Excelファイル自体のパスワード保護や、そもそも計算ロジックをExcel外（データベース等）に逃がす検討も必要です。
これらを使い分けることで、より安全でプロフェッショナルなExcel運用を目指しましょう。
