1. 導入：なぜ数式を隠す必要があるのか？
実務でExcelを共有する際、計算式が丸見えであることは意外とリスクを伴います。意図せず数式を書き換えられて計算が狂ったり、苦労して作成した複雑なロジックを安易に他者にさらしたくない、といったケースは多いはずです。今回解説する「数式の非表示」機能は、「誤操作の防止」と「知的財産の保護」という2つの観点から、プロのExcel活用において非常に重要なテクニックです。
2. 基礎知識：Excelの保護の仕組み
Excelには「セルロック」と「シートの保護」という2つの概念があります。
・ロック：セルの書式設定にある「保護」タブ内の設定です。
・表示しない：今回メインとなる設定で、これにチェックを入れると、そのセルが「シート保護」された際に、数式バーに数式が表示されなくなります。
重要：「表示しない」を設定しても、シート自体を保護しない限り、数式は隠れません。必ず「保護」とセットで運用することを覚えておきましょう。
3. 実装/解決策：VBAで「数式非表示」を自動化する
手動で設定する場合、対象セルを選択し「セルの書式設定」を開く必要がありますが、複数シートや大量のセルを扱う実務では、VBAで一括処理するのが最も確実です。以下のコードは、指定した範囲の数式を検索し、自動的に「非表示」設定にした上でシートを保護する実用的なサンプルです。
4. サンプルプログラム
以下のコードを標準モジュールに貼り付けて実行してください。
Sub HideFormulasInSheet()
Dim targetSheet As Worksheet
Dim formulaRange As Range
‘ 対象シートを指定
Set targetSheet = ActiveSheet
‘ シート保護を一度解除（エラー回避のため）
targetSheet.Unprotect Password:=”password123″
‘ 念のため全セルのロックを解除してから、数式セルのみを特定する
targetSheet.Cells.Locked = False
On Error Resume Next
‘ 数式が入力されているセルのみを対象にする
Set formulaRange = targetSheet.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not formulaRange Is Nothing Then
‘ 数式セルに対して「表示しない」設定と「ロック」を適用
With formulaRange
.FormulaHidden = True
.Locked = True
End With
‘ シートを保護する
targetSheet.Protect Password:=”password123″, _
UserInterfaceOnly:=True, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
MsgBox “数式の非表示設定とシート保護が完了しました。”, vbInformation
Else
MsgBox “このシートには数式が見つかりませんでした。”, vbExclamation
End If
End Sub
5. 応用・注意点
現場で活用する際の注意点は以下の3つです。
・パスワードの管理：VBA内でパスワードを直書きすると、コード自体を保護しない限りパスワードが丸見えになります。運用ルールとしてパスワード管理を徹底してください。
・UserInterfaceOnlyの活用：上記のコードで使用した「UserInterfaceOnly:=True」は非常に便利です。これを使えば、ユーザーの直接操作は制限されますが、マクロからはシートを編集できるようになります。
・誤解を解く：数式を非表示にしても、その数式が返す「結果（値）」は見えています。「中身のロジックを隠す」ための機能であり、データを完全に隠すものではないことを理解しておきましょう。
このテクニックを活用して、より堅牢でプロフェッショナルなExcel運用を目指してください！
