質問編集履歴
2
コード６行目
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,7 +52,7 @@
|
|
|
52
52
|
alert = MsgBox(“N~V列を編集可能にしますか？”, vbQuestion & vbYesNo)
|
|
53
53
|
|
|
54
54
|
If alert = vbYes Then
|
|
55
|
-
Set sh = Sheets(“
|
|
55
|
+
Set sh = Sheets(“進捗管理表”)
|
|
56
56
|
sh.Unprotect
|
|
57
57
|
sh.Range(“N1:V”&Rows.Count).Locked = False
|
|
58
58
|
sh.Protect
|
1
補足欄に記載のコード（７行目）をエラーが出ないように修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,7 +54,7 @@
|
|
|
54
54
|
If alert = vbYes Then
|
|
55
55
|
Set sh = Sheets(“工程管理表”)
|
|
56
56
|
sh.Unprotect
|
|
57
|
-
sh.Range(“N:V”&Rows.Count).Locked = False
|
|
57
|
+
sh.Range(“N1:V”&Rows.Count).Locked = False
|
|
58
58
|
sh.Protect
|
|
59
59
|
Set sh = Nothing
|
|
60
60
|
End If
|