VBAProject --> Microsoft Excel Objects --> ThisWorkbook
End Sub
↓ facebook のフォローで応援してください。お願いします。
Microsoft Office ブログランキングへ
Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
MsgBox "読み取り専用が解除されていません。ファイルのプロパティーで読み取り専用のチェックを外してください。", vbOKOnly + vbExclamation, "読み取り専用"
End If
End Sub
↓ facebook のフォローで応援してください。お願いします。
Microsoft Office ブログランキングへ