未分類

Excel VBA - 計算式が設定されてるセルの保護を行う

Excel VBA - 計算式が設定されてるセルの保護を行ってみます。

準備

1. フォーム (Form1) にコマンドボタン (CommandButton1) を配置します。

サンプルコード (Excel  VBA)

1. コードを記述します。

Private Sub CommandButton1_Click()
  Sheets("Sheet1").Unprotect
  For Each r In Range("A1:D20")
    If Left(r.Formula, 1) = "=" Then
      r.Locked = True
    End If
  Next
  Sheets("Sheet1").Protect
End Sub

説明

CommandButton1 をクリックすると、セル範囲 (A1:D20) の中で、計算式が設定されているセルの保護を設定します。

-未分類