VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_Open()

    If ActiveWorkbook.ReadOnly Then
        MsgBox "読み取り専用が解除されていません。ファイルのプロパティーで読み取り専用のチェックを外してください。", vbOKOnly + vbExclamation, "読み取り専用"
    End If

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ