回答編集履歴

1

回答修正

2020/03/26 07:16

投稿

Y.H.
Y.H.

スコア7918

test CHANGED
@@ -1,3 +1,27 @@
1
+ なんかもう有無を言わさずCloseしちゃえばいいんじゃないかという気がする。
2
+
3
+
4
+
5
+ ```VBA
6
+
7
+ Path1 = "c:\temp\readonly.xlsx"
8
+
9
+ bookName = Dir(Path1)
10
+
11
+
12
+
13
+ On Error Resume Next
14
+
15
+ Workbooks(bookName).Close SaveChanges:=False
16
+
17
+ On Error GoTo 0
18
+
19
+ Workbooks.Open Filename:=Path1, ReadOnly:=True
20
+
21
+ ```
22
+
23
+
24
+
1
25
  ReadOnly プロパティで判断できますよ
2
26
 
3
27
  [(docs.microsoft.com)excel.workbook.readonly](https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.readonly)