Excel/VBA 開いているブックが読み取り専用かどうかをチェックする方法

2019/06/24

開いているExcelファイルが読み取り専用かどうかを調べるマクロです。

Sub ReadOnlyCheck()
  Dim wb As Workbook

  Set wb = Workbooks("Book1.xlsx")

  If wb.ReadOnly = True Then
    MsgBox ("読み取り専用です")
  Else
    MsgBox ("読み取り専用ではありません")
  End If
End Sub

Book1.xlsxが読み取り専用で開いていたら「読み取り専用です」というメッセージボックスが現れます。

- Excel, VBA