>>916
読み取り専用で開いたかどうかは
ThisWorkbook.ReadOnly
で判定できるよ