質問編集履歴
1
ソース不備を修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -38,9 +38,9 @@
|
|
|
38
38
|
|
|
39
39
|
【シート保護マクロ】
|
|
40
40
|
|
|
41
|
-
|
|
41
|
+
Sub test()
|
|
42
42
|
|
|
43
|
-
|
|
43
|
+
'PW
|
|
44
44
|
|
|
45
45
|
Dim book_password As String: book_password = 1
|
|
46
46
|
|
|
@@ -50,13 +50,13 @@
|
|
|
50
50
|
|
|
51
51
|
'ファイル保存先
|
|
52
52
|
|
|
53
|
-
Dim save_path As String: save_path = "C\保存先
|
|
53
|
+
Dim save_path As String: save_path = "C:\保存先"
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
-
|
|
57
|
+
'保護するファイル格納先
|
|
58
58
|
|
|
59
|
-
|
|
59
|
+
Dim folder_path As String: folder_path = "C:\保護するファイル"
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
@@ -64,21 +64,21 @@
|
|
|
64
64
|
|
|
65
65
|
Dim file_name As String
|
|
66
66
|
|
|
67
|
-
file_name = Dir(folder_path & "*.xlsm")
|
|
67
|
+
file_name = Dir(folder_path & "\" & "*.xlsm")
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
|
71
71
|
Do While file_name <> ""
|
|
72
72
|
|
|
73
|
-
Workbooks.Open folder_path & file_name
|
|
73
|
+
Workbooks.Open folder_path & "\" & file_name
|
|
74
74
|
|
|
75
75
|
|
|
76
76
|
|
|
77
77
|
Workbooks(file_name).Sheets(1).Activate
|
|
78
78
|
|
|
79
|
-
Range("A:AK").Lock
|
|
79
|
+
Range("A:AK").Locked = True
|
|
80
80
|
|
|
81
|
-
Range("A2:AK2").Lock
|
|
81
|
+
Range("A2:AK2").Locked = Flase
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
|
@@ -86,15 +86,15 @@
|
|
|
86
86
|
|
|
87
87
|
ActiveSheet.Protect Password:=sheet_password, UserInterfaceOnly:=True
|
|
88
88
|
|
|
89
|
-
ActiveSheet.EnableSelection = xlUnlockedCells
|
|
89
|
+
ActiveSheet.EnableSelection = xlUnlockedCells
|
|
90
90
|
|
|
91
91
|
|
|
92
92
|
|
|
93
93
|
Workbooks(file_name).Sheets(2).Activate
|
|
94
94
|
|
|
95
|
-
Range("A:AA").Lock
|
|
95
|
+
Range("A:AA").Locked = True
|
|
96
96
|
|
|
97
|
-
Range("A5:H22").Lock
|
|
97
|
+
Range("A5:H22").Locked = Flase
|
|
98
98
|
|
|
99
99
|
|
|
100
100
|
|
|
@@ -110,27 +110,27 @@
|
|
|
110
110
|
|
|
111
111
|
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
|
|
112
112
|
|
|
113
|
-
|
|
113
|
+
|
|
114
114
|
|
|
115
115
|
'ファイル保存先に保存
|
|
116
116
|
|
|
117
|
-
ActiveWorkbook.SaveAs Filename:=save_path & file_name, Password:=book_password
|
|
117
|
+
ActiveWorkbook.SaveAs Filename:=save_path & "\" & file_name, Password:=book_password
|
|
118
118
|
|
|
119
|
-
Workbooks(file_nm
|
|
119
|
+
Workbooks(file_name).Close
|
|
120
120
|
|
|
121
|
-
|
|
122
121
|
|
|
123
|
-
file_name = dir()
|
|
124
122
|
|
|
123
|
+
file_name = Dir()
|
|
124
|
+
|
|
125
|
-
|
|
125
|
+
Loop
|
|
126
126
|
|
|
127
127
|
End Sub
|
|
128
128
|
|
|
129
129
|
【ファイルオープンマクロ】
|
|
130
130
|
|
|
131
|
-
|
|
131
|
+
Sub file_open()
|
|
132
132
|
|
|
133
|
-
Dim save_path As String: save_path = "C\保存先
|
|
133
|
+
Dim save_path As String: save_path = "C:\保存先"
|
|
134
134
|
|
|
135
135
|
Dim book_password As String: book_password = 1
|
|
136
136
|
|
|
@@ -140,17 +140,19 @@
|
|
|
140
140
|
|
|
141
141
|
Dim fso As Object: Set fso = CreateObject("scripting.filesystemobject")
|
|
142
142
|
|
|
143
|
-
|
|
143
|
+
|
|
144
144
|
|
|
145
145
|
Dim folder As Variant
|
|
146
146
|
|
|
147
147
|
For Each folder In fso.getfolder(save_path).subfolders
|
|
148
148
|
|
|
149
|
-
Workbooks.Open folder.
|
|
149
|
+
Workbooks.Open folder.Path & "\" & folder.Name & ".xlsm", Password:=book_password
|
|
150
150
|
|
|
151
|
-
Next
|
|
151
|
+
Next
|
|
152
152
|
|
|
153
153
|
End Sub
|
|
154
|
+
|
|
155
|
+
|
|
154
156
|
|
|
155
157
|
```
|
|
156
158
|
|