非IT企業に勤める中年サラリーマンのIT日記

非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。

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

   

開いている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