回答編集履歴

修正

2019/02/22 04:08

投稿

スコア3020

answer CHANGED Viewed

@@ -90,17 +90,17 @@
             'B列：セルAより「１つ右のセル」
             Set cellB = cellA.Offset(0, 1)
             'C～F列：セルAより「２つ右のセル」～「５つ右のセル」
-            Set cellCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
+            Set rngCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
             'セルAが空欄なら未承認、それ以外は承認済み
             If cellA.Value = "" Then
                 '未承認ならセルは変更可能
                 cellB.Value = "Unlock"
-                cellCF.Locked = False
+                rngCF.Locked = False
             Else
                 '承認済みならセルをロック
                 cellB.Value = "Lock"
-                cellCF.Locked = True
+                rngCF.Locked = True
             End If
         Next