回答編集履歴
1
修正
answer
CHANGED
@@ -90,17 +90,17 @@
|
|
90
90
|
'B列:セルAより「1つ右のセル」
|
91
91
|
Set cellB = cellA.Offset(0, 1)
|
92
92
|
'C~F列:セルAより「2つ右のセル」~「5つ右のセル」
|
93
|
-
Set
|
93
|
+
Set rngCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
|
94
94
|
|
95
95
|
'セルAが空欄なら未承認、それ以外は承認済み
|
96
96
|
If cellA.Value = "" Then
|
97
97
|
'未承認ならセルは変更可能
|
98
98
|
cellB.Value = "Unlock"
|
99
|
-
|
99
|
+
rngCF.Locked = False
|
100
100
|
Else
|
101
101
|
'承認済みならセルをロック
|
102
102
|
cellB.Value = "Lock"
|
103
|
-
|
103
|
+
rngCF.Locked = True
|
104
104
|
End If
|
105
105
|
Next
|
106
106
|
|