vbtest

Option Explicit

Private Sub Workbook_Open()
Dim 続行確認 As VbMsgBoxResult

If Workbooks.Count > 1 And Application.Calculation = xlCalculationManual Then
    続行確認 = MsgBox("他にExcelファイルが開かれています。続行しますか？" & vbCrLf & _
    "エラー防止のため他のExcelファイルを閉じてください。。" & vbCrLf & _
    "はい=続行　いいえ=終了", vbQuestion + vbYesNo, "続行確認")
        
        If 続行確認 = vbYes Then
            Application.Calculation = xlCalculationAutomatic
        Else
            ThisWorkbook.Close SaveChanges:=False
        End If

End If


End Sub