回答編集履歴
1
修正
test
CHANGED
@@ -182,7 +182,7 @@
|
|
182
182
|
|
183
183
|
'C~F列:セルAより「2つ右のセル」~「5つ右のセル」
|
184
184
|
|
185
|
-
Set
|
185
|
+
Set rngCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
|
186
186
|
|
187
187
|
|
188
188
|
|
@@ -194,7 +194,7 @@
|
|
194
194
|
|
195
195
|
cellB.Value = "Unlock"
|
196
196
|
|
197
|
-
|
197
|
+
rngCF.Locked = False
|
198
198
|
|
199
199
|
Else
|
200
200
|
|
@@ -202,7 +202,7 @@
|
|
202
202
|
|
203
203
|
cellB.Value = "Lock"
|
204
204
|
|
205
|
-
|
205
|
+
rngCF.Locked = True
|
206
206
|
|
207
207
|
End If
|
208
208
|
|